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Chapters 
This publication has nine chapters and several appendixes. Chapter 1 is an introduction. 
Chapter 2 describes RPG II coding entries common to all specification types. Chapters 


3-9 describe the seven types of RPG II specifications in the order they are read by the 
RPG II compiler. The appendixes contain additional information useful in RPG II pro- 


gramming, including convenient reference tables and performance improvement tips. 
Column Descriptions 


Specifications are described column-by-column as a programmer would write them. The 
following information is included for each column description: 


1. List of possible entries. 
2. General discussion of use of column and considerations for all possible entries. 
3. Specific discussion of each entry. 


4. Charts and examples. 


Special Topics 


Some RPG Ii features require multiple, interrelated specifications or are especially 
important and merit expanded discussion. Examples are multifile processing, tables 
and arrays, and operation codes. These features are discussed near the specifications 
which are key to their use. 
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FUNCTION OF RPG Il 


RPG II consists of a symbolic programming language and a 
compiler program. The RPG II symbolic language is a 
highly flexible, problem solving language. It allows pro- 
gramming solutions to a wide variety of data processing 
problems. The compiler program translates the symbolic 
language program (source program) into a machine language 
program (object program). The object program is used by 
System/3 to process information according to the program- 
met’s specifications. 


Basically, the program undergoes two processes: 


1. Compilation. The source program is translated into 
an object program. 


Chapter 1. Introduction 


2. Execution. The object program is used to process 
data. 


During compilation, the program specifications you wrote 
are used to produce machine language instructions. Storage 
areas are automatically assigned, constants or other refer- 
ence factors are included, and program routines for check- 
ing, for input/output operations, and for other functions 
are produced. 


During execution, the machine language instructions are 


combined with the input data files and both are processed 
through the system to do the job. 


Introduction 1 


USING RPG ti 


Doing a job using RPG II consists of the general operations 
illustrated in Figure 1 and described as follows. (The 
circled numbers in Figure 1 refer to the numbers in the 
following text.) 


1. The programmer analyzes the job requirements to 
determine the format of the input files and the lay- 
out of the finished report. For example, he deter- 
mines what fields in the input records are to be used, 
what calculations are to take place, where the data is 
to be located in the output records, and how many 
and what kind of totals must be accumulated. 


2. After the programmer has analyzed the requirements 
of the job, he provides the RPG II program with infor- 
mation about these requirements. 

a. He furnishes special information about his pro- 
gram and describes his system by making entries 


on the sheet containing Control Card specifications. 


b. He describes all files used by the object program 
(input files, output files, table files, etc.) by 
making entries on the File Description Specifica- 
tions Sheet. 

c. If the programmer uses record address files, tables, 
or arrays in his object program, he furnishes infor- 
mation about them through entries on the Exten- 
sion Specifications Sheet. 

d. He provides certain information about the format 
of printed reports on the Line Counter Specifica- 
tions Sheet. 

e. He describes his input files by making entries on 
the Input Specifications Sheet. 

f. He states what processing is to be done (add, sub- 
tract, multiply, divide, etc.) by means of entries 
on a Calculation Specifications Sheet. 

g. He defines the layout of the desired report (print 
positions, carriage control, etc.) by making entries 
on the Output-Format Specifications Sheet. 


3. After the specifications have been written on the 
appropriate forms, the data on the forms is recorded 
in punched cards or entered into the system through 
the keyboard. 


4. These specifications (called the source program) are 
preceded by the RPG II control card. The source 
program and the control card are processed by the 
RPG II compiler under control of the Disk System. 
At the end of this processing run (referred to as the 
compilation run), the object program is stored in an 
object library or punched in cards. This program 
contains all the machine instructions required to 
perform the desired job. 


5. When the object program is to be executed, it is read 
into main storage from cards or disk. 


6. The input files are read by the system under control 
of the object program. This is known as the object 
run, 


DEFINITIONS OF TERMS 


EBCDIC (Extended Binary-Code-Decimal Interchange 
Code) Notation: The 256-character machine code used in 
the IBM System/3 Disk System. See Appendix E for a 
table of hexadecimal equivalents of the EBCDIC characters, 


Alphabetic Characters: The 26 alphabetic EBCDIC char- 
acters and the three EBCDIC characters #, $, and @. 


Numeric Characters: The EBCDIC characters 0-9. 


Special Characters: The 217 EBCDIC characters not 
defined as alphabetic or numeric. 


Alphameric Characters: Any of the 256 EBCDIC characters. 


Alphameric Fields: All fields for which a decimal-positions 
specification has not been made in the appropriate column 
of the specifications forms. Alphameric fields can contain 
alphabetic, numeric, or special characters. 


Numeric Fields: All fields having a decimal-positions speci- 
fication in the appropriate columns of the specifications 
forms. 


Valid RPG II Names: The following rules apply to names 
used in RPG II programs: 


@ RPGII filenames can be from 1-8 characters long; 
RPG II field names can be from 1-6 characters long. 


@ The first character of either a filename or a field name 
must be alphabetic (see preceding definition of alpha- 
betic characters). The remaining characters can be any 
combination of alphabetic and numeric characters 
(special characters are not allowed). 


@ Blanks cannot appear between characters in the name. 


Output-Format 











(2) RPG II source program is 
written on coding sheets. 
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(6) The object program processes the 
data specified by the RPG 11 
program and produces the desired result. 


Figure 1. Performing a Job Using RPG II 
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GENERAL RPG II OBJECT PROGRAM LOGIC 


Every object program generated by the RPG II Compiler 
uses the same general program logic (Figure 2). The term 
program logic refers to all the RPG II functions performed 
for each data record read. 


Knowledge of RPG II logic is helpful when writing RPG II 
programs. For relatively simple jobs involving a single input 
file, an understanding of the general logic presented here is 
sufficient. Complex jobs require a more thorough under- 
standing of the logic. Appendix C: Detailed RPG II Object 
Program Logic contains a detailed flowchart and explana- 
tion of the program logic. 


Every program cycle involves three basic logic steps: 
1. Reading information (input). 

2. + Performing calculations (processing). 

3. Recording results (output), 


Within a program cycle, these basic logic steps can be 
divided into numerous substeps in which the input deter- 
mines when calculation and output operations occur. 
According to RPG II program logic, calculation and output 
operations (including exception output) are performed at 
two different times in a cycle: total time and detail time. 


Total Operations 


Total calculations are specified by placing an Z indicator in 
columns 7-8 of the Calculation Sheet. Total output opera- 
tions are specified by placing a T in column 15 of the Out- 
put Sheet. The appropriate control level indicator should 
be entered in columns 23-31 of the Output Sheet to dis- 
tinguish between output operations performed for differ- 
ent control levels. 


Total calculation and total output operations are normally 
performed on data accumulated for a group of related 
records which form a control group. Such operations are 
normally done only after a control break has occurred. A 
control break occurs when the control field of the record 
just read is different from the control field of the previous 
record. Whenever a record is read, a check is made to deter- 
mine if information in a control field (when one has been 
specified) is different from the control field information on 
the previous record. 


A change in the control field information indicates that all 
records from a particular control group have been read and 
a new group is starting. When all records from a group 


have been read (shown by controi level indicators being 
turned on), calculation and output operations are done 
using information accumulated from all records in that 
group. Information on the record that started the new con- 
trol group is not used in these total operations; only infor- 
mation from records in the previous control group is used. 


Detail Operations 


Those calculations not conditioned by L indicators in 
columns 7-8 are detail calculations. Detail output opera- 
tions are specified by placing an H or D in column 15 of 

the Output Sheet. Detail calculation and detail output oper- 
ations are normally performed for individual data records. 
These operations are done for each record, provided all 
conditioning indicators are satisfied. When any one of the 
following conditions are met, detail time calculation and 
output operations are done: 


1. All total calculation and total output operations 
have been completed. 


2. _No total operations are to be done (the information 
in the control field has not changed). 


Total operations are performed before detail operations. 
This prevents data from the first record in a new control 
group from being accumulated in the totals for the previ- 
ous group. Total operations are performed only on data 
accumulated from previous records. Detail operations on 
the record that caused the control break are done after 
total operations are finished. 


General Program Cycle 


Figure 2 shows specific steps in the general flow of RPG II 
program logic. A program cycle begins with step 1 and con- 
tinues through step 11, then begins again. Steps 7 and 8 
are known as total time; steps 11 and 1 are knows as detail 
time. 


The first and last program cycles of a job are somewhat 
different from the normal cycle. Before the first record is 
read, lines conditioned by the 1P indicator are written. Any 
heading or detail lines having no conditioning or having all 
negative conditioning indicators are also written at this 
time. In addition, total operations are bypassed for the 

first record even though a control break may occur. 


When the last record to be processed is read, the last record 
(LR) indicator turns on. This automaticaiiy causes aii con- 
trol level indicators to turn on also. Total operations are 
performed and the job ends; only steps 3-8 of the program 
cycle are done. 


10. 


11. 


Before the first record is read, the program writes al! 
heading or detail records (those having an H or D in column 
15 of the Output Sheet). This is done only if all conditioning 


indicators are satisfied. 
All record identifying indicators are turned off. 


A record is read and identified by the object program. The 
appropriate record identifying indicator is turned on. 


The record just read is examined to determine whether or 
not a control break has occurred. A control break occurs 
when the control field of the record just read is different 
from the control field of the previous record. 


if a control break occurs, the proper control level indicators 
turn on except LO which is always on. On the first cycle, 
however, total calculations and total output (steps 7 and 8) 
are bypassed. 


A check is made to determine if any of the control level 
indicators that are on are used in column 7-8 to condition 
total calculations. 


Total calculation operations (those conditioned by control 
level indicators in columns 7-8 of the Calculation Sheet) are 
performed if the control level condition is satisfied. 


Total records (those having a T in column 15 of the 
Output-Format Specifications Sheet) are written or punched 
out according to output specifications. 


!f matching fields have been specified, these fields are checked 
for a matching condition. The matching record (MR) 
indicator is set accordingly. 


Data from the record read at the beginning of the cycle 
(step 3) is now made available for use in detail calculation 
and output operations. 


All detail calculation operations (those not conditioned 

by level indicators in columns 7-8 of the Calculation Sheet) 
are performed on the data from the record read at the 
beginning of the cycle. Chaining and exception output can 
also be performed. 


Figure 2. General Object Program Cycle 
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MACHINE REQUIREMENTS 


Minimum System/3 Disk System machine requirements for 
compiling and executing an RPG II program are: 


@ 12K bytes of core storage. 


@ IBM 5424 Multi-Function Card Unit and/or IBM 1442 
Card Read Punch. 


e@ IBM 5203 Printer. 

@ IBM 5444 Disk Storage Drive. 

e@ IBM 5410 Processing Unit. 

The optional machine devices supported are: 

@ 16K, 24K, 32K, 48K, or 64K bytes of core storage. 
@ one additional IBM 5444 Disk Storage Drive. 

e@ IBM 5471 Printer Keyboard. 

e IBM 1403 Printer. 

@ IBM 5445 Disk Storage Drive. 


@ IBM 3410 Magnetic Tape Unit. 


RPG If SPECIFICATION SHEETS 


The RPG II specification sheets are used when coding an 
RPG II program. The format and column headings on each 
of these sheets guide you in making the appropriate entries. 
The sheets are designed so that one card is punched from 
each specification line. There are five specification sheets: 


1. Control Card and File Description Sheet. This sheet 
contains two types of specifications: 
a. Control card specifications provide information to 
the RPG II compiler. 
b. File description specifications provide information 
about all files used in the program. 


2. Extension and Line Counter Sheet, This sheet con- 
tains two types of specifications: 
a. Extension specifications provide information about 
tables, arrays, and record address files. 
b. Line counter specifications provide information 
about the number of lines to be printed on the 
forms that are used. 


3. Input Sheet. This sheet is used to describe the records 
in an input file. 


4. (Calculation Sheet. This sheet is used to describe all 
operations that are to be performed on the data. 


5.  Output-Format Sheet, This sheet is used to specify 
the arrangement and type of data that will be written 
or punched on printed reports or cards, or stored on 
disk. 


Information on specification sheets is recorded in punched 
cards to form a source program. The arrangement of the 
cards is shown in Figure 3. 


Input 
( Specifications 


FE ension 
Specifications 


File Description 
Specifications 


RPG Control 
Card 





Figure 3, Card Arrangement in the RPG II Source Deck 
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This chapter defines entries common to all RPG II coding 
sheets. Each coding sheet contains the following entries: 


1. Columns 1-2 (PAGE). 
2. Columns 3-5 (LINE). 
3. Column 6 (FORM TYPE). 
4. Column 7 (COMMENTS). 


5. Columns 75-80 (PROGRAM IDENTIFICATION). 


COLUMNS 1-2 (PAGE) 


Entry Explanation 


01-99 Page number 

Columns 1-2 in the upper right corner of each sheet are for 
numbering the specification sheets used in a job. You can 
use more than one of each sheet, but all sheets of the same 
type should be kept together. When all the specifications 
sheets are filled out, arrange them in the following order 
and number them in ascending sequence: 


1. Control Card and File Description. 


2, Extension and Line Counter. 


Chapter 2. Common Entries 


3. Input. 
4. Calculation. 


5.  Output-Format. 


COLUMNS 3-5 (LINE) 
Entry Explanation 
Any Line numbers 
numbers 


Columns 3-5 are used to number the lines on each sheet. 
Columns 3-4 contain preprinted line numbers, so in most 
cases line numbering is already done for you. For instance, 
the Control Card and File Descriptions Sheet contains line 
numbers for lines 01-07. The unnumbered lines below the 
preprinted numbers can be used for additional lines or to 
insert a line between two other completed lines (see 
Example). 


The control card specification line is always line 01. Any 
other lines on the sheets can be skipped. The line numbers 
you use need not be consecutive, but should be in ascending 
order. 


Common Entries 9 


Example 


Figure 4 shows the insertion of a line between two com- 
pleted lines. To show that a line belongs between line 02 
and line 03, a 5 is placed in column 5 (any number 1-9 can 
be used). Line 025 should be inserted between 02 and 03. 
All lines inserted between existing lines should be written 
after the last line with a printed line number. 


Note: After the source cards have been punched, cards 
from insert lines must be placed in proper sequence. 


COLUMN 6 (FORM TYPE) 


Entry Explanation 

H Header card (Control Card Specification 
Sheet). 

F File Description Specifications Sheet. 

E Extension Specifications Sheet. 

L Line Counter Specifications Sheet. 

I Input Specifications Sheet. 

C Calculation Specifications Sheet. 

O Output-Format Specifications Sheet. 


Column 6 contains a pre-printed letter on all sheets. The 
letter identifies the type of specifications for each line. 


COLUMN 7 (COMMENTS) 


Entry Explanation 


* Comment line 


You may want to write comments to help you understand 
or remember what is being done in a certain section of 
coding. RPG II allows an entire line to be used for these 
comments. The comment line is identified by placing an 
asterisk in column 7. Any characters in the character set 
may be used in a comment line. A card is punched from 
this line and the comments appear in the source program 
listing. 
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Comments are not instructions to the RPG II program. 
They serve only as a means of documenting the program. 
A comment line cannot be written in the control card 
specifications line. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


Entry Explanation 
Valid Program identification (the first character 
RPG Il cannot be #, $, or @ and no special char- 
name acters may be used in the name) 
Blank RPGOB]J is assumed. 

Control Cards 


Columns 75-80 (at the top of the Control Card Sheet) are 
used to name your object program. This name is used in a 
directory that contains the location of your program on 
disk. The compiler places the first four characters (columns 
75-78) into positions 89-92 of each record in your object 
program. Columns 75-80 of the control card must contain 
an entry when an object program is permanently cataloged 
on the object library (a C in column 10 of the control 
card). If columns 75-80 are left blank, the compiler 
assumes the entry is RPGOBJ. (The compiler uses columns 
93-96 of each object program record for consecutive num- 
bering of the records.) The name should be unique. 


Note: DIR, ALL, and SYSTEM are reserved names and 
must not be used as the name of an object program. 


All Other Source Cards 


Columns 75-80 on all source program cards, except the 
control card, may contain any characters. These columns 
may use the program name in the control card, or the 
column may contain any other characters to identify a 
certain portion of the program. These entries are ignored 
by the compiler, but will appear in the source program 
listing. 
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Chapter 3. Control Card Specifications 


One control card is required for every program. It provides COLUMNS 3-5 (LINE) 

information about your program and your system to the 

RPG II compiler. Without this information your source See Chapter 2. 

program cannot be translated into an RPG II object program. 

For coding the control card, one specification line is pro- 

vided on the Control Card and File Description Sheet COLUMN 6 (FORM TYPE) 

(Figure 5). 
An H must appear in column 6. A control card with an 7 
punched in column 6 must be entered for every program 
even if all the other columns are left blank. 


COLUMNS 7-9 (CORE SIZE TO COMPILE) 
COLUMNS 1-2 (PAGE) 


Columns 7-9 are not used. The program is compiled in the 
See Chapter 2. available core storage. 
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COLUMN 10 (OBJECT OUTPUT) 


Entry Explanation 


Blank Object program is written temporarily in 
the object library. The system halts only 
when severe errors are found. 


D Object program is written temporarily in 
the object library. The system halts for 
both warning errors and severe errors. The 
operator can continue the job after a halt 
occurs for a warning error. 


C Object program is written permanently in 
the object library. 


P Object program is punched into cards. 


Note: An object program in punched cards 
cannot be run in level two under Dual Pro- 
gram Feature. 


Column 10 is used to indicate the output you want as a 
result of compiling the source program. The object prograrn 
is usually written in the same object library in which the 
compiler resides. 


You will usually want the object program written tempor- 


arily in the object library until you have tested your program. 


When a program is written permanently in the object library, 
it deletes all programs temporarily written in the object 
library. (Every object program written permanently in the 
object library must be assigned a valid program name in 
columns 75-80 of the Control Card Specifications Sheet.) 


A program identification (columns 75-80) is required when 
the object program is written permanently in the object 
library (C entry in column 10). 


No object program is produced when severe (terminal) 
errors are present in the source statements. 


COLUMN 11 (LISTING OPTIONS) 


Entry Explanation 
Blank 1. The object program is produced 
(if no severe errors are found). 
2. The program listing is printed. 
B 1 The object program is produced 


(if no severe errors are found). 
2. The program listing is not printed. 
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Column 11 provides for listing options at the time your 
source program is compiled. If any severe errors are found 
during compilation, the system halts after completing the 
listing (provided a listing is to be printed). 


The blank entry is the usual case, producing an object pro- 
gram (if no severe errors are found) and a source program 
listing. The program listing consists of the source program, 
error messages, and a core map. The core map lists such 
information as relative addresses of fields, constants, and 
I/O areas. The entire core map is printed only if the pro- 
gram is successfully compiled. 


The B entry means that no program listing is printed; 
however, an object program is produced. This entry can 


be used if you want to produce an object program for 
which you already have a listing. 


COLUMNS 12-14 (CORE SIZE TO EXECUTE) 


Columns 13-14 


Entry Explanation 

Blank The core storage available for object program 
execution is the same as that used to com- 
pile the program. 

01-61 The core storage available for program execu- 


tion (if different from core storage available 
for object program generation). 


Use columns 13-14 to specify some multiple of 1K bytes of 
storage (K = 1024). 


Columns 13-14 define the core storage available for pro- 
gram execution (not including core requirements for the 


supervisor). The entry must end in column 14. 


This entry can differ from the core storage available for 
object program generation because: (1) your program can 
be executed on a system other than the one that compiled 
it, or (2) you might be using the Dual Program Feature (see 
IBM System/3 RPG II Additional Topics Programmer’s 
Guide, GC21-7567. 


If the system used for program execution is different from 
that used for compilation, subtract the amount of core 
storage occupied by the supervisor from the total core 
storage of the system used for execution. 


If you are using the Dual Program Feature, subtract the 
amount of core storage allocated to the second object pro- 
gram and the supervisor from the total core storage of the 
system used for program execution. 


Whether or not an entry is made in these columns, the 
supervisor size must be considered. Remember that the 
DPF supervisor is larger than the dedicated supervisor. In 
all cases, even if no entry is made in these columns, the 
maximum core available to load the programs is the total 
core storage of the system less the size of the supervisor. 


The size of the total program cannot exceed 64K. If at any 
time during compilation the total program size exceeds 
X‘FFFF’ (65,535 in decimal), the compilation will cease. 
A terminal halt will occur before an attempt is made by the 
compiler to generate overlays. If the total program cannot 
be contained in the amount of core storage specified, RPG 


II automatically creates overlays. 


Column 12 
Entry Explanation 
Blank,O No additional 256-byte increments are 
needed. 
Q One additional 256-byte increment is 
needed. 
H Two additional 256-byte increments are 


needed (512 bytes). 


T Three additional 256-byte increments are 
needed (768 bytes). 


Column 12 may be used to specify additional 256-byte 
increments of storage. These increments allow an extra 
1/4K, 1/2K, or 3/4K of storage to be available in addition 
to the storage specified in columns 13-14. These additional 
increments are particularly useful when using the dual 
programming feature. 


Example 


The following chart shows examples of the possible entries 
that can be made in columns 12-14 and the amount of stor- 
age that would be made available for that entry: 


Entry Available Bytes 

004 4,096 

Q04 4,352 (4,096 + 256) 
H04 4,608 (4,096 + 512) 
T04 4,864 (4,096 + 768) 
005 5,120 


COLUMN 15 (DEBUG) 


Entry Explanation 
Blank DEBUG operation is not performed. 
1 DEBUG operation is performed. 


In order to perform a DEBUG operation: 


1. AZ must appear in column 15 when the source pro- 
gram is compiled. 


2. The DEBUG operation code must appear in calcula- 
tion specifications. 


See Operation Codes, DEBUG Operation in Chapter 8 for 
more information. 
COLUMN 16 


Column 16 is not used. 


COLUMNS 17-20 (STERLING) 


Columns 17-20 are used to describe the format of the 
sterling fields used in sterling currency. If you are not 
using sterling, these columns must be left blank. See 
Sterling in Appendix D for more information and defini- 
tions of IBM and BSI formats, 


COLUMN 17 (INPUT-SHILLINGS) 


Entry Explanation 

Blank Sterling currency is not being used. 

1 Input shilling field is in IBM format. 
2 Input shilling field is in BSI (British 


Standard Institute) format. 


COLUMN 18 (INPUT-PENCE) 


Entry Explanation 

Blank Sterling currency is not being used. 
1 Input pence field is in IBM format. 
2 Input pence field is in BSI format. 
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COLUMN 19 (OUTPUT-SHILLINGS) 


Entry Explanation 

Blank Sterling currency is not being used. 

0 Output shilling field is to be printed 
only. 

i Output shilling field is to be written in 
IBM format. 

z Output shilling field is to be written in 
BSI format. 


COLUMN 20 (OUTPUT-PENCE) 


Entry Explanation 

Blank Sterling currency is not being used. 

0 Output pence field is to be printed only. 

1 Output pence field is to be written in 
IBM format. 

2 Output pence field is to be written in 
BSI format. 


The same fields may be punched, printed, or written on 
disk, Although they are always punched in the selected 
format (IBM or BSI), the printed output is not affected by 
the selected format. Printed fields always have two posi- 
tions in both the pence and shilling fields. See Sterling in 


Appendix D for more information. 


Inverted Print Numeric Literal 
Option using 
Period/Comma as 
a Decimal Point 
4123.57 
4123.57 
4123,57 


4123,57 


Figure 6. Inverted Print Specifications 
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Edit Codes 
using 


a Period/Comma as 
a Decimal Point 


3,210.89 


3,210.89 
3.210,89 


3.210,89 





COLUMN 21 (INVERTED PRINT) 


Entry Explanation 

Blank Domestic format. 

I World Trade format. 

J World Trade format (leading zero remains 
for zero balances). 

D United Kingdom format. 


Use column 21 to describe the format and punctuation 
used for numeric literals in the calculations specifications, 
the order of the system date (referenced by UDATE) field 
and edit codes used on output. Figure 6 shows inverted 
print specifications and resulting formats. 


COLUMNS 22-25 


Columns 22-25 are not used. 


COLUMN 26 (ALTERNATE COLLATING SEQUENCE) 


Entry Explanation 
Blank Normal collating sequence is used. 
S Alternate collating sequence is used. 


Use column 26 only to alter the normal collating sequence 
for a job. Additional specifications are required, as 
described in the following discussion. 


Zero Suppress UDATE 
to the Left/Right Appears 
of the asa 
Decimal Point Stash/Period 
MM/DD/YY 
DD/MM/YY 
DD.MM.YY 


DD.MM.YY 


Collating Sequence 


Every alphabetic, numeric, or special character holds a 
special position in relation to all other characters (see 
Figure 7 and Appendix E, Table E-5). This order is known 
as the collating sequence. System/3 uses a collating 
sequence based on the way characters are represented in the 
machine (see Character Structure under Columns 21-41 in 
Chapter 4). 


You can change this collating sequence if you wish. If you 
want characters to appear in a sequence other than the one 
used by System/3, or if you want two or more characters 
to have the same position in the sequence (this means they 
are considered equal), you must describe an alternate col- 
lating sequence. 


Note: An alternate collating sequence applies to matching 
fields, sequence checking, and alphameric compare opera- 
tions (COMP). It has no effect on control levels, numeric 
compares, look up, or sequence checking of tables or arrays. 


Defining an Alternate Collating Sequence 


To define an alternate collating sequence you must enter an 
S in column 26 of the Control Card Specifications Sheet. 


A table also must be entered which lists the changes you 
wish to make in the normal collating sequence. This is a 
special table requiring no File Description or Extension 
Specifications Sheet. The following entries are needed for 
each table record entered: 


Positions 1-6: Enter ALTSEQ to indicate that you are 
altering the normal sequence. 


Positions 7-8: Leave these positions blank. 


Positions 9-10: Enter the hexadecimal number of the 


character whose normal collating sequence is being replaced. 


Table E-5 in Appendix E and Figure 7 list characters and 
their hexadecimal equivalents. 


Positions 11-12: Enter the hexadecimal number of the 
character that is replacing the character taken out of 
sequence. 


Positions 13-16, 17-20, 21-24, etc.: These positions are 
used in the same way as positions 9-12. The first two posi- 
tions give the character to be replaced by the character 
specified in the next two positions. There may be as many 
position entries as the record can contain. Additional rec- 
ords may be used with the above format. The first blank 
position terminates the record. ** or /* ends the table. 


The alternate sequence table must be preceded by a record 
with **% in positions 1-3, The remaining positions of the 
record may be used for comments. This table must follow 
the RPG II specification deck and file translation cards, if 
used. Figure 3 shows the arrangement of cards in an 

RPG II source deck. 


Translation Table and Alternate Collating Sequence Coding 
Sheet 


The Translation Table and Alternate Collating Sequence 
Sheet (Figure 7) can be used for coding an alternate collating 
sequence. It helps you to determine the entries needed for 
the alternate collating sequence table input records. 


Causing Characters To Be Considered Equal 


If you want a character to be considered the same as 
another character, both must hold the same position in the 
collating sequence. For example, you may want a blank to 
be considered a zero. Therefore, you need to define an 
alternate collating sequence in which the blank is the same 
as the zero because it holds the same position in the se- 
quence. The alternate collating sequence input record looks 
like this: 


Position Entry 

1-6 ALTSEQ 

7-8 Blanks 

9-12 40FO (blank takes the zero’s position) 


Whenever a blank is read and used in a compare, it is con- 
sidered as a zero. Thus, if you were comparing numbers to 
0036 to find an equal condition, 0036 and 4636 (where 
b=blank) both compare equal to 0036. 
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TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 








Form X21-9096 
Printed in U.S.A. 





















































































































































01001001 






































01010011 
01010100 





1 
01010110 
01010111 


01111011 
01111100 


10101110 
10101111 


Replaced Replaced Replaced Replaced 
Graphic Entry Place Of Graphic Place Of Graphic Graphic Entry Place Of Code Graphic Place Of 
00110011 | o100110 | | 99 = 11001100 
00110100 P| | 9A | Be 11001101 
tf | 00110101 ie 2 3 | 10011011 | a 

00110110 11001111 
04 00110111 01101010 10011101 11010000 
05 00111000 01101011 10011110 11010001 
06 10011111 11010010 
07 00111010 01101101 11010011 
08 00111011 01101110 11010100 
o9 00111100 01101111 
OA 00111101 eee, 11010110 
OB 00111110 01110001 11010111 
oc 00111111 01110010 11011000 
oD 11011001 
OE 11011010 
OF 01000010 01710101 11011011 
10 01000011 01110110 11011100, 
1 Q 01110111 10101010 11011107 
12 01000101 01111000 10101011 11011110 
13 01000110 01111001 10101100 11011111 
14 01000111 01111010 10101101 11100000 











218 a 














10001001 
[10001010 | 


10001011 








Q 
a 








10001100 
10001101 


BF 1S [SB |S 1B B/S 1B RS 1B 8 


10110010 
10110011 
10110100 
10110101 
10110110 
10110111 





14100101 





11100110 
11100111 
11101000 
11101001 
11101010 
11101014 


N |< oc [ss [le ain 





10111010 
10111011 
10111100 


11101101 


11101913 
11110000 
11110001 





11110011 











11110100 




















Ny 
a 


nN Sig mt af me] ef ma] ae fee | ef ee 
oO ~ THM OLO |W p| oO; aojn 








01100101 


© 
_ 





£1818 

















11110101 
41110110 








11910111 





11411100 
11911101 
11111110 
11991191 
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Altering the Normal Collating Sequence 


You can alter the normal collating sequence in several ways. 
You can insert a character between two existing characters, 
you can take a character out of the sequence, or you can 
change characters (put A where Z is, and Z where A is). 
Regardless of how you alter the sequence, you must specify 
every character to be changed by the alteration. For 
example, if you want the dollar sign ($) to be positioned 

in the collating sequence between A and B , the normal 
sequence is changed as follows: 


Normal _ Altered 
Sequence Sequence 


Normal _ Altered 
Sequence Sequence 


AD OmW YS 
GDaAwe> 

i Oa 
— OQ Tm 


International Business Machines Corporation 


On the Translation Table and Alternate Collating Sequence 
Coding Sheet, note that there are many characters between 
Jand},RandS, Zand O, These characters can be repre- 
sented in the computer and on records by a certain code. 
However, they have no printable graphic symbol. Due to 
this particular arrangement of graphics, nongraphics, gra- 
phics, etc. in the collating sequence, a character, when in- 
serted between A and B, changes only the position of 
graphics B through J. All other graphics are not affected. 
B through J all move down one position, causing the J to 
take the place of the nongraphic represented by hexadeci- 
mal CA. This does not matter, however, since the original 
character CA cannot be printed anyway. See Figure 8 for 
the entries on the Translation Table and Alternate Collating 
Sequence Coding Sheet. 


The alternate sequence input record is constructed as 
follows (this record must be preceded by a record with 
**¥ in positions 1-3): 


Form X21 
Printed in 


TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 


Replaced Replaced 
System/3 By/Takes System/3 By/Takes 


Graphic Place Of Code Graphic 


01100110 
01100111 















10011001 
10011010 


11001100 
41001101 









01101000 
01101001 














10011011 
10011100 


11001110 
11001111 





01101010 





10011101 











01101011 


10011110 








01401100 | % 
01101101 





00111001 39 
00171010 3A 










D1 
11010010 B2 
11010011 D3 


10011111 
10100000 












38 01101110 
3c 01101111 
01110000 


00111011 
00111100 


00111101 













10100001 
10100010 
10100011 


11010100 








01110001 
01110010 
01110011 
01110100 


00111110 
00111111 
01000000 
01000001 

















10100100 
10100101 
10100110 
10100111 


11010111 
11011000 
11011001 
11011010 














01110101 
01110110 

















10101000 11011011 


11011100 











01111000 








01111001 


10101001 
10101011 
10101100 


11011101 
12011110 
11011111 

















01111010 





01111011 


10101101 11100000 


11100001 

















01111100 


11100010 





01147101 





011141110 
01111111 











11100011 
11100100 
11100101 






10110001 
10110010 











































10110100 
10110101 
10110110 
10110111 


11100111 
11101000 




















_10001101 






11101001 
14101010 
11101011 
11101100 
peat 


11110011 








10001110 








11110100 





10001111 


11110101 








01011101 10010000 








11110110 








01011110 











01011111 10010010 





11000101 











01100000 10010011 








\ F8 


11000110 








01100001 
01100010 
01100011 


10010100 
10010101 
10010110 





C takes D's position. * 
14141011 FB 
11111100 FC 


11000111 
11001000 
11001001 
































01100100 10010111 








11001010 11119101 FO 











01100101 10011000 


Figure 8. Altering the Collating Sequence 









8/2)8/8/218'8 


11001011 11911110 FE 


, FF 
(no printable character) 
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Position Entry 


1-6 ALTSEQ 

7-8 (blanks) 

9-12 SBC2 ($ takes B’s position) 
13-16 C2C3 (B takes C’s position) 
17-20 C3C4 (C takes D’s position) 
21-24 C4C5 (D takes E’s position) 
25-28 C5C6 (E takes F’s position) 
29-32 C6C7 (F takes G’s position) 
33-36 C7C8 (G takes H’s position) 
37-40 C8C9 (H takes I’s position) 
41-44 C9CA (I takes a new position held by no 


other printable character) 


COLUMNS 27-36 


Columns 27-36 are not used by System/3. 


COLUMN 37 (INQUIRY) 


Entry Explanation 

Blank The program cannot be interrupted (does 
not recognize an inquiry request). 

B The program can be interrupted (recognizes 
an inquiry request). 

I The program is an inquiry program that 


can only be executed when an inquiry 
request is made. 


System/3 Disk System allows certain programs to be inter- 
rupted while they are being processed. A request for inter- 
ruption is called an inquiry request (made by depression of 
the REQUEST key on the printer-keyboard). Programs are 
usually interrupted to permit another program to run, then 
control is given back to the first program. 
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An I-type program is usually read in only when a B-type 
program is interrupted. In this case, the I-type program 

will not recognize an inquiry request. However, if an I-type 
program is loaded in the normal manner (not because of a 
program interrupt), it can only be executed when an inquiry 
request is made. While this program is running, it will not 
recognize an inquiry request. 


The RPG II inquiry request is outlined in these steps: 


1. Only a B-type program will recognize an inquiry 
request, 


2. When the program recognizes an inquiry request, a 
roll-out routine moves the interrupted program from 
main storage to disk. 


a 


The program for which the interrupt was requested 
is processed. The interrupting program may be any 
type (blank, B, or J). This interrupting program can- 
not be interrupted. 


4. After the interrupting program is executed, the 
interrupted program moves back into main storage 
using a roll-in routine. The interrupted program 
resumes execution at the point of interruption and 
terminates in a normal manner. 


In the dual program mode, the same specifications apply, 
but only level 1 programs can be interrupted and moved 
out of main storage by a roll-out routine. For information 
about roll-out/roll-in, see JBM System/3 Disk Concepts and 
Planning Guide, GC21-7571. 


Note: An inquiry request can also be made by using IBM- 
written subroutine SUBR95 instead of roll-out/roll-in. For 
information on this method, see Appendix L. 


Columns 38-40 are not used by System/3. 


COLUMN 41 (1P FORMS POSITION) 


Entry Explanation 
Blank First 1P line is printed only once. 
1 First 1P line can be printed repeatedly. 


| 


When forms are first inserted in the printer, they may not 
always be in perfect alignment. Sometimes several lines 
must be printed to determine the correct positioning of the 
form. Since you may not want to print several lines of a 
report before getting the forms positioned correctly, you 
have the option of repeatedly printing the first line condi- 
tioned by the first page (1P) indicator. Each time the 1P 
line is printed, the program halts so you may reposition the 
forms if needed. Forms positioning applies to the first 1P 
output line for the first printer file. Page count is not 
incremented until the forms are positioned correctly. 


COLUMN 42 (INDICATOR SETTING) 


Column 42 is not used. 


COLUMN 43 (FILE TRANSLATION) 


Entry Explanation 
Blank No file translation is needed. 
F Input, output, update, or combined files 


are to be translated. 


Use column 43 only when information contained in an 
input, output, combined, or update file is in a form which 
requires translation. When file translation is specified for 
an update or combined file, both the input and output 
portions of the file are translated. In this discussion, input 
and output characters are referred to as external characters; 
characters used for processing within System/3 are called 
internal characters. 


An F in column 43 indicates either or both of the follow- 
ing: 


1. The character code used in the input data (external 
character) must be translated into a form that can 
be used by your program (internal character). 

2. The output data must be in a character code differ- 
ent from that used by your program. 


FILE TRANSLATION 


RPG II allows you to translate any character code into 
another character code. This capability is file translation. 


A different character code used as input can be translated 
into the code used by System/3, and the code used by 


System/3 can be translated into a different code for output. 


Specifications for File Translation 


To indicate that there are files to be translated, enter an F 
in column 43 of the RPG II Control Card Specifications 
Sheet. File translate table records must also be used to 
specify how the translation is to be done. The following 
entries are needed for each file translation table record 
used: 


Positions 1-6: Enter *FILES to indicate that all input, 
output, update, and combined files are to undergo trans- 
lation (both the input and output portions of update and 
combined files will be translated). Then use the specifica- 
tions listed below, beginning with positions 9-10. All files 
will be translated according to the translate table specified 
beginning in position 9. 


If only certain files are to be translated, they must be 
named individually in positions 1-8 as follows: 


Positions 1-8: Enter the filename of the input, output, up- 
date, or combined file to be translated (both the input and 
output portions of update and combined files will be trans- 
lated). Then use the following specifications, beginning 
with positions 9-10. 


Positions 9-10: Enter the hexadecimal equivalent of the 
external character. This is the character in a different char- 
acter code to be translated from input data or for output 
data. 


Positions 11-12; Enter the hexadecimal equivalent of the 
internal character. This is the character in the System/3 
code which internally represents the external input or out- 
put character. 


Positions 13-16, 17-20, and 21-24, etc: These groups of 
positions are used the same way as positions 9-12. The 

first two positions of a group give the character to be trans- 
lated into the character named in the last two positions of 

a group. All tables for one file must be kept together. The 
file translation table input records must be preceded by a 
record with **% in positions 1-3. The remaining positions 
of this record may be used for comments. The file trans- 
lation records must directly follow the RPG II specifications 
in the source program (Figure 3). 
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Example 


Assume that a department store must process cards serving 
as Sales slips for all items sold. Each card contains a 
punched and printed record of the actual, or wholesale, 
cost of its associated item along with a retail price. 


Since wholesale cost is confidential, the store uses indivi- 
dual letters of a code name in place of wholesale cost 
figures. 


A typical code name consists of a combination of letters 
that can be easily remembered by the store’s personnel. 
The only restriction, however, is that the code name must 
contain ten different letters, one for each of the numbers 
zero through nine. 


Using the code name BUCKINGHAM to represent numbers 
one through nine and zero, the letter B represents the num- 
ber 1; letter U represents number 2, etc. Letter M repre- 
sents zero. Individual letters are combined to represent 
each item’s wholesale cost. Thus a wholesale cost of 
BBU.CC translates as 112.33; that is, one hundred twelve 
dollars and thirty-three cents. 


In the following chart, hexadecimal equivalents of each 
letter in the word BUCKINGHAM are listed along with the 
hexadecimal equivalents of numbers one through nine and 
zero. 


Letter in Hexadecimal Hexadecimal 
Codename Equivalent Number Equivalent 
B C2 1 Fl 

U E4 2 F2 

C C3 3 F3 

K D2 4 F4 

I C9 5 F5 

N DS 6 F6 

G C7 7 F7 

H C8 8 F8 

A Cl 2 F9 

M D4 0 FO 
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Hexadecimal equivalents are merely a different way of 
representing the 8-bit code that the computer examines to 
recognize individual characters in your language. 


See Figure 9. Note that if letters BBU were read and never 
translated, hexadecimal equivalents C2, C2, and E4 would 
be used by System/3. Asa result, it would be impossible to 
perform an arithmetic operation involving the wholesale 
cost, BBU. Therefore, with the aid of file translation, the 
computer replaces the letters BBU with numbers. 


File translation table input card specifications for letters 
in the word BUCKINGHAM are as follows: 


Column Entry 
1-6 *FILES 
7-8 Blank 
9-12 C2F1 
13-16 E4F2 
17-20 C3F3 
21-24 D2F4 
25-28 C9FS 
29-32 D5F6 
33-36 C7F7 
37-40 C8F8 
41-44 C1F9 
45-48 D4F0 


Only the letters of the previous example will be specified 
for translation. All other characters will be handled in the 
normal manner. Figure 10 shows the entries made on the 
Translation Table and Alternate Collating Sequence Coding 
Sheet for the previous example. 


| COLUMN 44 (PUNCH MFCU ZEROS) 


Entry Explanation 
Blank Leading zeros are removed. 
1 Leading zeros are used. 


RANSLATION TABLE AND ALTERNATE COLLATING S$ 


Replaced 
By/Takes 


International Business Machines Corporation 








Replaced 
System/3 By/Takes 
Graphic Place Of 





Form X21-9096 
Printed in U.S.A. 


Replaced 
By/Takes 


Replaced 
System/3 By/Takes 






































































































































































































































































































































































































































































































































EQUENCE CODING SHEET 
Place Of Entry Place Of Graphic Place Of 
01100110 66 10011001 11001100 
01100111 67 10011010 11001101 
01101000 68 10011011 11001110 
01101001 10011100 Ee 11001111 
01101010 6A 10011101 9D 11010000 _| # 
01101011 |, 6B 10011110 9E 11010001 | J 
% 6C 10011111 OF 11010010 _| K 
ono1iot | — 6D 10100000 AO 11010011 | & 
OIG | >| ET Ss f_ 10100007 11010100 | M 
01101111 11010101 _|N 
01110000 11010110 | 0 
11010111 | P 
aes Q pa 
[11011001 [Ri [| 
——— Pi1011010 | ae 
is pe Ps 
| 11011100 _| 
PY tt019107 | a 
01711000 11011110 
01111001 79 11011111 
01111010 | : 7A 10101101 11100000 
01111011 | # 7B 10101110 
01111100 | @ 7¢ 10101111 ; 
Q4111101 | 7D 10110000 P fe 
01111110 | = 7E 10110001 
01111411 |” 7F 10110010 : 3 
10000000 80 10110011 11100110 NS 
10000001 81 11100111 se 
10000010 2 aT iGiGon E4, which if translated 
10000011 83 10110110 11101001 would represent the 
10000100 84 10110111 11101010 . 
10000101 85 11101011 number 2, is the letter 
10000110 86 10111001 11101100 U in the code used by 
10000111 87 10111010 11101101 —thes 
10001000 33 ystem/3, 
10001001 89 11101111 
10001010 8A 10111101 11110000 | 0 
10001011 8B 10111110 11410001 [1 
10001100 8c 11110010 | 2 
10001101 a = 111410011 | 3 
10001110 8E 11110100 | 4 
10001111 8F 11110101 {| 5 
10010000 90 11110110 | 6 
10010001 11110111_«| 7 
11000101 11111000 | 8 
11000110 11111001_[ 9 





















11000111 
11001000 
11001001 






10010101 
10010210 














11411010 
14701011 
11111100 















11001010 
11001011 





10010111 









gisiejalaie'a/ctes 













41111101 
11171110 
11941111 













C2, which if translated 


would represent the 
number 1, is the letter 
B in the code used by 
the System/3. 


Figure 9, Differences in Character Codes 


This column applies only to output on the MFCU. If the | COLUMN 45 (NONPRINT CHARACTERS) 
column is left blank, all numeric output fields on the MFCU 
will be zero suppressed to the units position. Enter a / in 
column 44 when you wish to have leading zeros on fields 


punched or printed by the MFCU. 


Entry Explanation 


Blank Program halts if an unprintable character 
was in the last line printed. 

If an edit word or edit code is defined for fields to be 

printed or punched on the MFCU, the edit word or code | 


will override column 44, 


No program halt for such unprintable 
characters. 
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toe tional Business Machines Cocporation 
iniexsnaiiunai Business Machines Corporation 


Form X21-9096 
Printed in U.S.A. 


TRANSLATION TABLE AND ALTERNATE COLLATING SEQUENCE CODING SHEET 


Replaced 
System/3 By/Takes 
Graphic Place Of 


110014 













Replaced 
By/Takes 
Place Of 







System/3 
Graphic 


11001100 








Reptaced 
System/3 By/Takes 
Graphic Entry Place Of 
33 
34 


Entry 
91100110 66 
110100 01100311 67 

110101 
110110 


110111 








01101001 
01101010 












10011010 
10011011 
10011100 
10011101 


11001101 
11001110 
11001111 
11010000 








01101011 
01101100 
01101101 
01101110 
O11O1ltt 


111000 


10011110 
10011111 
10100000 
10100001 











11010010 
11010011 
11010100 
11010101 





01110000 


O111G116 
01110111 
01111000 
01111001 
014111010 
01111011 
01141100 
01111101 
01121110 













11010110 


10100101 
10100110 


10101001 
10101010 
10101011 
10101100 
10101101 
10101110 
10101111 
10110000 
{0110001 Bt 












11011101 
11011110 
141011911 
11100000 
11100001 
11100010 
411100011 


11100100 














































































































01411111 10110010 B2 11100101 
10110011 B3 
10110100 B4 
10110101 BS 
10110110 86 11101001 
10310141 87 11101010 
10111000 B88 11101011 
10111001 89 11101100 
10111010 BA 11101101 
10111011 BB 11101110 
10111100 BC 11101111 

P wonton [8D 













































































































































































10111110 
101411111 11110010 
011010 11000000 11110011 
011011 11000001 A 11140100 
11000010 B 11110101 
11000011 Cc 11110110 
11000100 D 11110111 
11000101 E 11111000 
11000110 F 11411001 
11000111 G 141116010 
11001000 H 11111011 
10010110 11001001 t 11111100 
10010111 11001010 11144101 
10011000 11111110 
11141111 
This is the hexadecimal equivalent This is the hexadecimal equivalent of the 
of the character to be translated. System/3 character that will be substituted 


Figure 10. Specifications for File Translation Input Cards 


Column 45 is used to bypass machine halts for unprintable 
characters. This column applies to the printer and the 
printer keyboard. All characters are known to the system 
by a numeric code. If a numeric code is formed which is 
not known to your system (not in your character set) and 
that character is to be printed, the machine will halt after 
printing the line. The unprintable characters will have 
been replaced by blanks. 
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for the character that is to be translated. 


If you wish to bypass this halt, enter a one (1) in column 
45. An unprintable character will be printed as a blank and 
no halt will occur. Note, however, that this option could 
make some types of output data meaningless. 


COLUMNS 46-47 


Columns 46-47 are not used. 


COLUMN 48 (SHARED I/O AREA) 


Entry Explanation 


1 All disk files share a single input/output 
area. 

Blank All disk files use a separate input/output 
area. 


Column 48 applies to disk files only. Enter a 1 in this 
column to indicate that all disk files in the program share 
a single input/output area. 


Normally an RPG II program uses one input/output area 
for each file. An entry in column 48 allows all disk files 
to use one input/output area. By specifying a shared 
input/output area, you can reduce the amount of core 
storage needed to process a program. This is particularly 
important if a program is so large that it cannot run in the 
core storage you have available. However, the use of a 
shared input/output area increases the time required to 
process your program. Therefore, before you indicate 
that all disk files are to share one input/output area, be 
sure that the program would otherwise exceed the capacity 
of the system. 


Note: Additional input/output areas (entry in column 32 
of the File Description sheet) cannot be specified for disk 
files using a shared input/output area. 


COLUMNS 49-74 


Columns 49-74 are not used. Leave them blank. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 


Control Card Specifications 
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Chapter 4. File Description Specifications 


File description specifications are required for every file COLUMNS 1-2 (PAGE) 
used by a program. Write these specifications on the Con- 


trol Card and me Description Sheet (Figure 11). Only one See Chapter 2. 


line is needed to describe a file. A maximum of 20 file 
description tors are allowed per program. 
COLUMNS 3-5 (LINE) 
At the end of this chapter is a series of charts showing all 
possible files that can be defined on the File Description See Chapter 2. 


Sheet. The charts are arranged by device, showing the 
basic entries for all possible disk, card, console, and printer 


files. 


COLUMN 6 (FORM TYPE) 


An F must appear in column 6. 





Form X21-9092 














IBM international Business Machines Corporation eee 
RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 
12 75 76 77 78 79 80 
Dats | Punching Graphic | Page iT Ue eheion 
Program [eee A eee il | | 
Programmer 





Number § | 
Of Print 
Positions 


Size to 2 5 Size to 


= Refer to the specific System Reference Library manual for actual entries. 
5] Execute 


Address 
to Start 


2} Compile é 6 


Output--Shillings 
Output--Pence 


Inverted Print 


input--Shillings 


MFCM Stacking Sequence 
input--Pence 


360/20 2501 Buffer 


53 54 55 56 57 58 59 60 6 7 68 69 70 71 72 73 74 





File Description Specifications 


File Addition/Unordered 


Number of Tracks 
for Cylinder Overflow 


Mode of Processing 


Fite Type 









Extent Exit 
for DAM 





Length of Key Field or 
of Record Address Field 






File Designation 






Name of Number of Extents 


Label Exit 
Core Index 







End of File Record Address Type 









Type of File 
Organization 
or Additional Area 


Symbolic 
Device 


Sequence 





Line Filename Device 





Labels S/N/E/M 





File Format File 











i 

8 & Condition 
x 

g 

3 S Block Record | Continuation Lines Lines 

Oye Length Length x 

=jo =) Option Entry 

8 9 10 11 12 13 14 415116 19/20 21 22 23]/24 25 26 27/28 EEE ae nil erry 





+ ; Extension Code E/L 
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Figure 11. Control Card and File Description Sheet 
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File Description Specifications 


COLUMNS 7-14 (FILENAME) 


Use columns 7-14 to assign a unique filename to every file 
used in your program except compile time table and array 
files, which must not be named on the File Description 
Sheet. (Compile time tables and arrays are described on 
the Extension Sheet.) The filename can be from 1-8 char- 
acters long, must begin in column 7, and must be a valid 


RPG II name. The filename can be the same as a field name. 


Pre-execution time table and array files are described on 
the File Description Sheet. More than one table or array 
file can be described for the same device (see columns 
40-46 in this chapter). For the MFCU (but not for other 
devices), a single file may contain more than one table or 
array. In this case, the MFCU file would be named only 
once on the File Description Sheet, but each table or array 
within the file would be described separately on the Exten- 


sion Sheet (see Tables and Arrays in Chapter 5). 


COLUMN 15 (FILE TYPE) 


Entry Explanation 

I Input file 

O Output file 

U Update file 

C Combined file 
D Display file 


Use column 15 to identify the way in which your program 
uses the file. 


input File 


Input files are records that a program uses as a source of 
data. When input files are described in a program it indi- 
cates that records are to be read from the file. All input 
files except table and record address files must be further 
described on the Input Sheet. Table files and record address 
files must be further described in the Extension Sheet. 


Output Files 

Output files are records that are written, punched, or 
printed by a program. All output files, except table and 
array output files, must be further described on the Output- 


Format Sheet. 
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Update Files 


Update files are disk files from which a program reads a 
record, updates fields in the record, and writes the record 
back in the location from which it was read. Update files 
must be further described on both the Input Sheet and 
Output-Format Sheet; only the fields to be updated must 
be described on the Output-Format Sheet. A chained file 
or a demand file may be updated at detail time or at total 
time or exception time. All other disk files can be updated 
only at detail time. 


Combined Files 


A combined file is both an input file and an output file. A 
combined file must be assigned to the MFCU. A program 
reads records from a combined file and includes output data 
on the records in the file. The result is one file that con- 
tains both input and output data. Combined files must be 
further described on both the Input Sheet and Output- 
Format Sheet. 


If an MFCU file is a combined file, output data can be 
printed or punched on cards as they are read. 


Output to a combined file can occur once per cycle. 
Display Files 


A display file is a collection of information from fields 
used by a program. The DSPLY operation code must be 
used on the Calculation Sheet in order to print a field or 
record directly from storage and/or key data into a field or 
record in storage. Display files need only be described on 
the File Description Sheet. The device associated with a 
display file must be a printer keyboard (console). See 
Operation Codes, Display in Chapter 8 for more informa- 
tion. 


COLUMN 16 (FILE DESIGNATION) 


Entry Explanation 

P Primary file 

S Secondary file 

C Chained file 

R Record address file 

T Table or array file (pre-execution time 
tables or arrays) 

D Demand file 


Use column 16 to further identify the use of input, update, 
combined, and chained output files. Leave the column 
blank for display files and all output files except chained 
output files (direct load). 


Primary Files 


A primary file is the main file from which a program reads 
records. In multifile processing the primary file is used to 
control the order in which records are selected for process- 
ing. It can be an input, update, or combined file. In pro- 
grams that read records from only one file, that file is the 
primary file. Every program must have one, and only one, 
primary file. 


Secondary Files 


Secondary files apply to programs that do multifile 
processing. All of the files involved in multifile processing, 
except the primary file, are secondary files. A secondary 
file can be an input, update, or combined file. Secondary 
files are processed in the order in which they are written in 
the file description specifications. 


Note that table, chained, record address, and demand files 
are not involved in record selection in multifile processing. 


See Multifile Processing (columns 61-62) in Chapter 7 for 
more information on primary and secondary files. 


Chained Files 


A chained file is a disk file that is read randomly or loaded 
directly via the CHAIN operation code. A maximum of 15 
chained and/or demand files are allowed per program. 


A chained file can be an input, output, or update file. See 
Column 28 (Mode of Processing), Random in this chapter, 
and Operation Codes, CHAIN in Chapter 8. 


Record Address Files 


A record address file is an input file that indicates which 
records are to be read from a disk file and the order in 
which the records are to be read from the disk file. You 
cannot use more than one record address file in a program. 
All record address files must be further defined in extension 
specifications. 


Record address files contain either record key limits or 
relative record numbers in binary format. Record address 
files that contain record key limits can be disk files, card 
files, or can be entered by the printer-keyboard. 


Record address files that contain binary relative record num- 
bers can only be disk files. Those files that contain limits 
are used with indexed files only. See Column 28 (Mode of 
Processing), Sequential Within Limits in this chapter for 
more information. 


Record address files on disk that contain binary relative 
record numbers are called ADDROUT (address output) 
files. They are produced by the Disk Sort Program and 
can be used with any type of disk file. See Column 28 
(Mode of Processing), By ADDROUT File in this chapter 
for more information. 


Table or Array Files 


A table or array file is a sequential input file that contains 
table or array entries. The entries can be read into the pro- 
gram during compilation or immediately before execution 
of the program. Only pre-execution time tables or arrays 
are described on the File Description Sheet. However, both 
pre-execution and compile time tables and arrays must be 
described in the Extension Sheet. 


A table or array output file (written or punched after LR 
output) is defined as a normal output file and does not 
require an entry in column 16. 


Table and array files are not involved in record selection 
and processing. They are only a means of supplying entries 
for tables or arrays used by the program. When table or 
array files are read during the execution of the program, 
the program reads all the entries from the table or array 
files before it begins record processing. See Tables and 
Arrays in Chapter 5 for additional information. 


Demand Files 


Demand files can be input, update, or combined files. The 
READ operation code must be used on the Calculation 
Sheet in order to read from a demand file. Demand files 
can only be processed sequentially. A maximum of 15 
demand and/or chained files are allowed per program. See 
Operation Codes, READ in Chapter 8 for a discussion of 
processing demand files. 
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COLUMN 17 (END OF FILE) 


Primary Fiie Secondary File 


Entry Explanation 


E All records from the file must be processed 
before the program can end. 


Blank 1. The program can end whether or not 
all of the records from the file have 
been processed. 


2. If column 17 is blank for all of the 
files, all records from every file must 
be processed before the program can 
end. 


Column 17 applies to programs that perform multifile 


processing. Use it to indicate whether or not the program 


can end before all of the records from the file are processed. 
It applies only to input, update, and combined files that are 
used as primary, secondary, or record address files. 


A program that performs multifile processing could reach 
the end of one file before reaching the end of the others. 





It therefore needs some indication of whether it is to con- oe 

tinue reading records from the other files or end the pro- Letter E Designated for Primary File Only 

gram. An entry in column 17 in the descriptions of the a 

files provides that indication. Key: @ Numeric values show contents of match fields 
If the records from all the files must be processed, column @ Alli records above dotted line are processed 
17 must be blank for all files, or contain E’s for all files. before the job ends 


Figure 12. End-of File Processing 
End-of-File Processing 


By specifying an F in column 17 of the File Description 
Sheet, you indicate that the job is to end after all records 
are processed from the file for which you specified the E. 
In most cases, the job will end at the time all records from 
that file are processed. However, under certain conditions 


additional records may be processed after all records from COLUMN 18 (SEQUENCE) 

the file with the E designation are processed. The excep- 

tional situation is in matching records when an E is desig- Entry Explanation 

nated for the primary file and all records from that file have 

been processed. The job will end only after all secondary A Sequence checking is to be done. Records 
records that match the last primary record have been in the file are in ascending order. 
processed or the first secondary record without a match 

field has been encountered. D Sequence checking is to be done. Records 


in the file are in descending order. 
Figure 12 shows the records that will be processed for 
various end-of-file situations. Blank No sequence checking is to be done. 
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Column 18 applies to update files, combined files, and all 
input files except table, array, chained, demand, and record 
address files. Leave column 18 blank for output, display, 
record address, table or array files, and chained files. Use it 
to indicate whether or not the program is to check the 
sequence of the records. Use columns 61-62 on the Input 
Sheet to identify the matching fields containing the sequence 
information. 


Sequence checking is required when match fields are used 
in the records from the file. When a record from a matching 


input file is out of sequence, the program halts, and the 
operator has three options: 


1. Bypass the record out of sequence and read the next 
record from the same file. 


2 Bypass the record out of sequence, turn on the LR 
indicator and perform all end-of-job and final total 


procedures. 


3. Cancel the entire program. 


COLUMN 19 (FILE FORMAT) 
Entry Explanation 
F Fixed length records 


Column 19 must contain an F entry. This entry indicates 
that all of the records in the file are of the same length. 


Device 
(Columns 40-46) 


DISK or 
DISK45 


Columns 20-23 
(Block Length) 


Record length 
or a multiple 
of record length. 


MFCU1 or 
MFCU2 


CONSOLE 
(printer-keyboard) 


PRINTER or 
PRINTR2 


| Record length or a 
multiple of record 
length plus the 
buffer offset. 


Figure 13. Block Length and Record Length Entries 


Record length. Record length 
Record length 





COLUMNS 20-23 (BLOCK LENGTH) 


Entry Explanation 
1-4096 1. Multiple of disk record length or 
disk record length. 

2. MFCU record length. 
3. Printer-Keyboard record length. 
4. Printer record length. 

18-4096 Tape file block length. 

Blank Block length for this file is the same as 


record length. 


Columns 20-23 have a different use depending on the device 
named for the file. If an entry is specified, the entry must 
end in column 23, and leading zeros can be omitted (Fig- 
ure 13). 


Block Length for Disk Records 


Disk block length must be a number equal to record length 
or a multiple of record length. The maximum block length 
is 4096. 


Block length does not affect the way records are written on 
disk. Its function is to specify the amount of core storage 
to use for input/output area. 


If a value equal to the disk record length is entered in these 
columns, RPG II will assign an efficient block length. See 
Table E-7 in Appendix E for block lengths computed by 
RPG II for various disk files and record lengths. 


Columns 24-27 
(Record Length) 


Maximum 
Record Length 


Record length 


Record length. Record length 


Record length. Record length 125 


96, 120, or 132 
(number of 
print positions) 
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Biock Length for Tape Records 


The block length for tape records must be a multiple of the 
record length plus the length of the buffer offset and the 
total length must be from 18 to 4096 characters. When 
figuring the block length, remember to allow space for: 


1. The number of records to be in a block. 
2. The length of the buffer offset (block prefix). 


For a discussion of buffer offset, see Columns 54-59 (Con- 
tinuation Line Option). 


COLUMNS 24-27 (RECORD LENGTH) 
Entry Explanation 


1-4096 The number of characters in each record 
(limited by the device used). 


18-4096 Record length for tape files. 


Use columns 24-27 to indicate the length of the records in 
the file. All of the records in one file must be the same 
length. (For update files, the length of a record after it is 
updated must be the same as before it was updated.) The 
maximum record length allowed and the size of the I/O 
area assigned depend upon the device assigned to the file 
(see Figure 13), For printer and MFCU, an I/O area equal 
to the maximum record length is assigned. The record 
length specified, however, may be shorter than the maxi- 
mum length for the device. 


The entry you place in these columns must end in column 
27. Leading zeros can be omitted. 


'om 7 411 at. f. Mh Pesos ace Sa Rae at MS (ee es al ce eg Sk Dg 
ihe record tenpul 1Or Lape must speciry the size Of ine data 


records to be processed by this program. 
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COLUMN 28 (MODE OF PROCESSING) 
Entry Explanation 
L. Sequential within limits 
R 1. Random by relative record number. 
2. Random by key. 
3. By ADDROUT file. 
4. Direct file load (random load). 
Blank 1. Sequential by key. 
2. Consecutive. 
Use column 28 to indicate the method by which records 


are to be read from the file or to indicate that a direct file 
load (random load) is to take place. 


For disk files specified as primary, secondary, or chained 

files, the possible methods depend upon the organizations 
of the files (Figure 14). For the other types of files, con- 
secutive processing is the only possible method. 


Column 31 is used to further identify the method for the 
program. See column 31 (Record Address Type) in this 
chapter. 


PRIMARY AND SECONDARY FILES 


Organization 


Possible Methods 


. Consecutively 
. By ADDROUT file 


Sequential 


. Consecutively 
2. By ADDROUT file 


Direct 


Indexed . Consecutively 
. By ADDROUT file 
. Sequentially by key 


. Sequentially within limits. 


CHAINED FILES 


Possible Methods 













Organization 








Sequential Randomly by relative 





record number 







Direct Randomly by relative 












record number 


Randomly by key 





Figure 14. Possible Record Retrieval Methods for Disk Files 


Consecutive 


The consecutive method applies to all sequential and direct 
files. It may also be used with indexed input files. During 
consecutive processing records are read in the order in which 
they physically appear in the file. The contents of spaces 
left for missing records in direct files are read as though the 
records were there. (When a direct file is loaded, such spaces 
are filled with blanks.) You should allow for these blank 
records in your program. 


The program reads records from the file until either the 
end of that file is reached or the program ends due to the 
end-of-file condition of another file. See Column 17, End 
of File in this chapter for more information about the 
second condition. 


By ADDROUT File 


An ADDROUT (address output) file is a record address file 
produced by the Disk Sort Program. It is a file of 3-byte 
disk records containing binary relative record numbers of 
records in a disk file. RPG II converts the binary relative 
record number to a disk address and locates and reads the 
record at that address in the original disk file. Records are 
read in this manner until either the end of the ADDROUT 
file is reached or the program ends due to the end-of-file 
condition of another file (see Examples, Example 1). See 
Column 17, End of File in this chapter for more informa- 
tion about the second condition. 


Sequential By Key 


The sequential by key method of processing applies to 
indexed disk files that are used as primary, secondary, or 
demand files. 


Records are read in ascending key sequence (the order in 
which the record keys are arranged in the index portion of 
the file). The program reads records until all records in the 
file are processed or the program ends due to the end of file 
condition of another file. See Column 17, End of File for 
more information about the second condition. 


Sequential Within Limits 


The sequential within limits method applies only to indexed 
disk files used as primary and secondary files and demand 
files. A limits record consists of the lowest record key and 
the highest record key of the records in the indexed disk 
file which are to be read. Limits records are contained in a 
record address file. The record address file can be located 
on disk, punched on cards, or entered by the printer-key- 
board. 


To process sequentially within limits, the program reads: 
1. Alimits record from the record address file. 


2. Records with keys greater than or equal to the low 
record key and less than or equal to the high record 
key. 


The program repeats these two steps until either the end of 
the record address file is reached or the program ends due 
to the end-of-file condition of another file. See Column 17, 
End of File in this section for more information about the 
second condition. 
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The format of the records in a record address file containing 
limits must conform to these rules: 


1. Only one set of limits is allowed per record in the 
record address file. 


2. The lowrecord key must begin in position one of 
the record. The high record key must follow the 
low record key. A record key can be from 1-29 
characters in length. 


3. Both the low record key and the high record key must . 


be equal in length to the key field length specified in 
columns 29-30. Therefore, leading zeros may be 
necessary in specifying numeric record keys. 


4. Analphameric record key may contain blanks. 


5. If keys in the indexed files are packed, the keys on 
the limits records must also be packed. 


The same set of limits can appear in more than one record 
address record. Data records, therefore, can be processed 
as many times as you wish. 


The two record keys in a limits record can be equal. In this 
case, however, only one data record will be read. 
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Random 


The two methods, random by relative record number and 
random by key, apply to chained files only. They require 
the use of the CHAIN operation code. The records of a file 
to be read or written must be processed by the CHAIN oper- 
ation code. The records are read or written only when the 
CHAIN statements that identify them are executed. 


For sequential and direct files, relative record numbers must 
be used to identify the records (see Examples, Example 3). 
Relative record numbers identify the positions of the records 
relative to the beginning of the file. For example, the rela- 
tive record numbers of the first, fifth, and seventh records 

in a file are 1, 5, and 7 respectively. (See Operation Codes, 
CHAIN in Chapter 8 for a description and example of 

direct file loading.) 


For indexed files, record keys must be used to identify the 
records (see Examples, Example 4). A record key is the 
information from the key field of a record. The informa- 
tion is used in the index portion of the file to identify the 
record. Indexed files may also be processed randomly by 
relative record number if they are input files. 


Records are read during the calculation phase of the pro- 
gram. Therefore, fields from these records can be used 
during detail or total calculations. Note then, that fields of 
records read from chained update files can be read and 
altered during total calculations and the records can be up- 
dated (written back on the file with alterations) during 


total output: the same also applies to detail calculations relative record numbers which correspond to locations of 

and detail output (see Examples, Example 5). records on the input disk file, MASTER. As each record is 
read from ADRTFILE, the indicated record from MASTER 
is located and read. For each record read from MASTER 


Examples (indicator 01 is on), a detail line is printed on the printer 
output file, PRINTER. 
Example 1 
Since end of file (E in column 17 of the File Description 
Figure 15 shows processing a sequential disk file by an Sheet) is specified for the ADDROUT file, processing con- 
ADDROUT file. The record address file, ADRTFILE, tinues until all records in ADRTFILE have been read. 


defined as an ADDROUT disk file, consists of 3-byte binary 
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Example 2 Each set of limits read from LIMITS will consist of the low 
and high account numbers to be processed. Since the 

In Figure 16, the input disk file, MASTER, described as an account number key field (ACCT) is eight positions long, 

indexed file to be processed by record keys is to be each set of limits will include two 8-position keys. 

processed within the limits contained on ig oe address 

file, LIMITS. The LIMITS file, which is further described As MASTER is processed within each set of limits, the 

on the Extension Sheet, is to be read from fe primary corresponding records are written out on the output printer 

MFCU hopper. file, PRINT. Processing is complete when all sets of limits 
have been processed. 
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Figure 16. Processing an Indexed File Sequentially Within Limits (Part 1 of 2) 
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Example 3 


In Figure 17, the direct update file, MASTER, is to be 
processed randomly by relative record numbers. The 
account number (ACCT) from the primary MFCU file, 
CHANGE, is used as the relative record number. 


IBM 
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tion time by the CHAIN operation code. At detail output 
time, the data in the NEW field replaces the original data in 
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file. 


Form X21-9092 
Printed in U.S.A. 


75 76 77 78 79 80 


1 2 
Program 
ms B1] Identification PLE] 





Instruction Punch 
Program | une! | 





Programmer 


af 


Control! Card Specifications 


Address 
to Start 


a Form Type 


po Je 

| - |. 

| de 

i § Binary Search 
| |& Tape Error 


Refer to the specific System Reference Library manual for actual entries. 


Nonprint Characters 


Field Print 
| | Formatted Core Dump 


® Table Load Halt 
RPG to RPG tI Conversion 


63 69 70 71 72 73 74 


ch Punch MFCU Zeros 


| [8 Shared 1/0 
& 


File Description Specifications 


Fiie Type Mode of Processing 
; : . Length of Key Field or 
Pile; Designation of Record Address Field 


End of Fite Record Address Type 


Type of File 
Organization 
or Additional Area 


Filename Sequence 


File Format 


Block Record 
21 Length Length 
18 EL g al 25 26 271 28)29 30/31 a 


gfe rete 
zie 


Overflow Indicator’ 


Key Field 
Ea 
Ea ion 


Hn Code E/L 


40 41 42 43 44 45 46/47 48 49 50 51 52 


File Addition/Unordered 


Number of Tracks 
for Cylinder Overfiow 


Extent Exit 

for DAM 
Name of Number of Extents 
Symbolic Label Exit 


Device 


Device 


Labels S/N/E/M 


Core index 
File 
Condition 


} Continuation Lines Lines 


= | = Eee eg 


ee aber a ad 


























Figure 17, Random Processing of a Direct File by Relative Record Number (Part 1 of 2) 


File Description Specifications 39 


Form X27-9094 
Printed in U.S.A. 


IBM international Business Machines Corporation 


RPG INPUT SPECIFICATIONS 
12 75 76 77 78 79 80 


ee 7 =a Program 
Punching Graphic Page Biz] Teac ction 
Program Instruction Punch 


Programmer 














Record Identification Codes : ; Field 
Field Location 


Sterling 

Sign 

Position 
Plus |Minus| or 


Filename Field Name 


Position 


pe ES AREER 3 
SH 


International Business Machines Corporation 


RPG CALCULATION SPECIFICATIONS 


Position Pasition 


Form Type 

Option (O) 
Record Identifying Indicator 
Stacker Select 

P = Packed/B = Binary 
Decimal Positions 

Control Level (L1-L9} 
Matching Fields or 
Chaining Fields 

Field Record Relation 


Character 


Character 


4 5]/6]7 8 9 10 11 12 13 14/15 16 


oo 


19 20421 22 23 24 














+ 


7. 























Form X21-9083 
Printed in U.S.A. 


75 76 77 78 79 80 


Program 
Identification 


Date Punching Graphic 


Instruction 








Program Punch 








Programmer 





Indicators 


Factor 1 Operation Factor 2 Result Field 


Decimal Positions 


Form Type 
Control Level 
(LO-L9, LR, SR} 


32 413 [144 15} 16}17,}18 19 20 21 22 23 24 25 26 27428 29 30 31 32433 34 35 36 37 38 39 40 41 42143 44 45 46 47 48]49 50 51552 


pel Li TT Maller] 11 | Tea eats | | eo 
HH 


Pa aa a 




















Form X21-9090 


IBM International Business Machines Corporation 
Printed in U.S.A. 


RPG OUTPUT - FORMAT SPECIFICATIONS 
12 75 76 77 78 79 80 


Oate_ = i ius ‘ 
Punching Graphic Page ogram 
: Identification 
Instruction } 


































































Program 
Programmer 
« 
3 Space Output Indicators Edit Codes 
é Remove Sterli 
s Pius Sign en 
Line Filename a) Field Name zl End NAG eDBte Position 
Es =I Positon Field Edit 
a S Slo » 8 g in Z = Zero 
OPO pr S = 
' 2 ie 5 2 s 8 . Output Suppress 
E Slala} a =4&} Record 
2 PIs Ela 
a 


3.4 ST6}7 8 9 10 11 12 13 14115/16}17]18]19 20424 22] 23)24 | 25] 26 {27 | 28/29 }30 {31 132 33 34 35 36 37/38 


rote eR | pitt ttt tt eal | My art (GE Eee ear 
i one CO 
rt Hy | m1 ! : | ek | | , 4 | 


PLT SRE FEECEECEEPPEPECEECEE PCE CE 


ale n 








ie 
= 














Figure 17. Random Processing of a Direct File by Relative Record Number (Part 2 of 2) 


40 


Example 4 CHANGE, the account number (ACCT) is used as the key 
to chain to the corresponding record in MASTER at calcul- 


Figure 18 shows random processing by key of an indexed ation time. At detail output time, the data in the NEW 

file. MASTER, a chained update file, is described on the field of CHANGE replaces the original data in the NAMADR 
File Description Sheet as an indexed file to be processed by _ field. The updated MASTER record is then written on its 
keys. As each record is read from the input card file, original disk location. See Column 32 in this chapter for a 


description of indexed file organization. 
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Figure 18. Random Processing of an Indexed File by Key (Part 1 of 2) 


File Description Specifications 41 


IBM international Business Machines Corporation Form 21-9094 
* Printed in U.S.A. 


RPG INPUT SPECIFICATIONS 


75 76 77 78 79 80 





Date Program 
Punching Graphic Page 2! Identification 


Program Instruction Punch 








Programmer 





Record Identification Codes ‘ 2 Field 
Field Location : 
Indicators 


Binary 


Sterling 
Sign 
Position 


Filename Field Name 


In gitinn 
SStiON asition 


tus jMinus| or 


Form Type 

Number {1-N) 
Option (O) 

Record identifying Indicator 
Stacker Select 

P = Packed/B 

Decima' Positions 
Control Level (L1-L9) 
Matching Fields or 
Chaining Fields 

Field Record Relation 





STAR TPT TPT EEE THEE aa eae 
Poe b | peepee pe 


POOLE 
Pah lawee Hoa aaeee rae SN eRe el schon 
leWlaieel | Wwist | I tt CATT 

1 i Saal las 






































HE Hn 


internationat Business Machines Corporation Form X21-9003 


RPG CALCULATION SPECIFICATIONS rinted in U.S.A. 


es euncring [ Sraonic | [| | | TT | 
Instruction 
Program _ pa 


Programmer 
Indicators 


And And Factor 1 Operation Factor 2 Result Field 


| Lookup 
Table (Factor 2) is 
Hh Low eee 
8 Accin || 11 i cwanmasirem lil lllll se aa eo 
is so a ak Si 0 a a 


75 76 77 78 79 80 


Program 
Identification 











Resulting 
Indicators 


Arithmetic 


oleh 
3 
BAB 


Line 


~ = 
ve 
N 
Ag 
we 


Form Type 
Contro| Level 
Decimal Positions 
Half Adjust (H) 








==> P 
eTST=1- 
| [le 
oO | 0 fo 
bes 


a 





> 
> 

at 
? 

—t 
+. 
— 
ara 
—+ 





Farm ¥21-9n080 















































































IBM internationai Business Machines Corporation 9080 
2 Printed in U.S.A. 
75 76 77 78 79 80 
Date estas T ! | ! Ala’ Program CTT 4 
Sa re ew Graphic P , ograr 
ae pit; Identification | 
Program struction | punch 
Programmer 
c 
3 Space Output Indicators Edit Codes 
; eee ie, 
£ 5 oh Pius Sign Son 
—12 : = 
Line Filename rm Field Name [H4}=] End = | 5 ip eae ee Position 
ets <} > Positon [a ve fi : Field Edit 
& S13}, e 8{E} in 2 No c |u |Z = Zero 
i Z/SisiB) s s 8I<} Output 8 No DIM Suppress 
_ - =x 
E Bl § ajt{ o | < £]5] Record | 8 : 
. ris wia 2 Constant or Edit Word 
n 
4 61/7 8 9 10 11 12 13 14]15]16/17118}19 20/21 22123) 24} 25) 26 |27) 28 30131 9 lao a1 42 43/4 5 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70]71 72 73 74 











TEE EH 7 ca SEE EEE EEE 
REHEARSE EERE EAERREE EEE) 


Figure 18, Random Processing of an Indexed File by Key (Part 2 of 2) 
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Example 5 


Figure 19 shows the updating of an indexed file. The 
indexed file, MASTER, is described as a chained update file 
to be processed by keys. The key field in MASTER is 
ITEMNO, in positions 1-10. The index will be sorted into 
ascending sequence when processing is complete. 


As each record is read from TRANS, the input transaction 
file, the ITEMNO field is used as the key to chain to 
MASTER during calculations. If the character 2 is in posi- 
tion 64 of the transaction record, the quantity in ADJUST 
is added to the ONHAND field of MASTER. If the char- 
acter 3 is in position 64, ADJUST is subtracted from 
ONHAND. If the character 1 appears in location 64 of the 
MASTER record, the updated ONHAND field is written 
out on its original location in the MASTER record at detail 
output time. 
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Figure 19. Updating an Indexed File (Part 1 of 2) 
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COLUMNS 29-30 (LENGTH OF KEY FIELD OR RECORD 


ADDRESS FIELD) 
Entry Explanation 


Number Length of record key or ADDROUT file 
record 


Columns 29-30 apply only to indexed disk files and record 
address files. Enter: 


1. The length of the record keys in indexed files and 
record address files that contain limits. 


2. The length of the records in ADDROUT files. 


3. The length of record keys in packed format. 


All of the key fields in the records in an indexed file must 
be the same length. The maximum is 29 bytes; 8 bytes 
are for record keys in packed format. All of the records 
in an ADDROUT file have a length of three. A leading 
zero is not required for entries of 1-9. 


COLUMN 31 (RECORD ADDRESS TYPE) 


Entry Explanation 


A Record keys are used in processing and 
loading indexed files. 

I The file is being processed by means of 
an ADDROUT file or the file is an 
ADDROUT file. 

P Record keys in packed format are used in 


processing and loading indexed files. 


Blank 1. Relative record numbers are used in 
processing sequential and direct files. 


2. Asequential or direct file is being 
loaded. 


3. Records are read consecutively. 


Column 31 applies to disk files specified as input, update, 
or chained output files. It indicates the way in which 
records in the file are identified (Figure 20). Together, 
columns 28 and 31 indicate: 


PRIMARY AND SECONDARY FILES 


Column 28 Column 31 
Method (Mode of Processing) (Record Address Type) 





Consecutive Blank Blank 
| By ADDROUT R { 


Sequential By Blank 
Key 


Sequential 
Within Limits 


CHAINED FILES 


Column 28 Column 31 
Method (Mode of Processing) (Record Address Type) 





Random By R Blank 
Relative 
Record Number 


Random By Key R 


Direct File Load R. 
{Random Load) 





* A direct file load requires an O in column 15 and aC in column 16. 


Figure 20. Specifications Identifying Methods for Retrieving 
Records or Loading a Direct File 


1. The method by which records are read from the file. 
2. Adirect file load. 

For ADDROUT files, column 31 must contain an J. 

Note: When building a file with packed keys (P in column 


31), you must specify the key field as packed in output 
specifications. 
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COLUMN 32 (FILE ORGANIZATION OR ADDITIONAL 
1/0 AREA) 


Entry Explanation 


I Indexed file. 
Tr ADDROUT file. 
1-9 Sequential file or direct file. Use two 


input/output areas for the file. (The digit 
two is preferred because a maximum of two 
input/output areas are allowed.) 


Blank Sequential file or direct file. Use one 
input/output area for the file. 


Use column 32 to: 


@ Identify the organization of all files except ADDROUT 
files. 


@ Identify ADDROUT files. 


@ Indicate whether one or two input/output areas are 
to be used for sequential files or direct files. 
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File Organization 


File organization is the arrangement of records in a file. The 
three types are indexed, direct, and sequential. Files organ- 
ized in these ways are called indexed files, direct files, and 
sequential files, respectively. 


Indexed Files 


An indexed file is a disk file in which the location of 
records is recorded in a separate portion of the file called 
an index. The index and its associated file occupy adjacent 
positions on disk. The index contains the record key and 
record location of every record (Figure 21). 


A record key is the information from the key field of a 
record. The record key can be used to identify the records 
of an indexed file. Record keys are always required in an 
indexed file. Indexed files may be loaded with the keys in 
ascending sequence or keys in non-ascending sequence. 
After a file is loaded in non-ascending key sequence, the 
keys in the index are sorted into ascending sequence. See 
Column 66 of the File Description Sheet for a definition of 
the unordered load function. 


Records are stored in the data portion 
of the file in the same order in which 
they are read. When a record is stored 
in the data portion, an entry for the 
record is made in the index. After the 
last entry has been made in the index, 
the entries are sorted into ascending 
order according to the record keys. 


Record Key 








Index * Data 






If the record keys are not in ascending sequence, 
they are sorted into ascending sequence. 


The order of the records in the data portion remains 
unchanged when the entries in the index are sorted. 


Index * Data 


“Entries are of the form record-key/disk-location (D1=1st disk location, D2=2nd disk location, and so on) 


Figure 21. Indexed File Organization 
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Direct Files 


Direct files are disk files in which records are assigned 
specific record positions. Regardless of the order in which 
the records are put in the file, they always occupy a speci- 
fic position (a specific disk address). Relative record num- 
bers identify the relative position of a record within the 
file. 


Before a direct file is loaded the entire disk area (a mini- 
mum of one track is allocated) for the direct file is cleared 
to blanks. Spaces are reserved in a direct file for records 
not available at the time the file is loaded (Figure 22). You 
should handie these blank records in your program. 


Sequential Files 

Sequential files are files in which the order of the records is 
determined by the order in which the records are put in the 
file. For example, the tenth record put in the file occupies 


the tenth record position. 


Files other than disk files are always sequential files. 
Additional Input/Output Area 


Normally the program uses one input/output area for each 
file. A second area, however, can be used for sequential 
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Figure 22. Direct File Organization 
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and direct disk files and non-disk files, specified as input or 
output files in column 15. Additional input/output areas 
cannot be used for console files, table files, or demand files 
or for disk files using a shared I/O area. The devices associ- 
ated with these files can be the disk and MFCU for input or 
output files, and the printer for output files only. If you 
want two areas to be used for a card file, do not specify 
stacker selection for the records in the file. Stacker selec- 
tion is described under Column 42, Stacker Select in Chap- 
ter fy 


The use of two I/O areas may increase the size of the pro- 
gram. Therefore, before you indicate that two areas are to 
be used for a file, be sure that the increase in size will not 
make your program exceed the capacity of your system. 


Note: Additional I/O area cannot be specified for disk 
files with a shared input/output area (column 48 of the 
Control Card Specifications Sheet). If both additional I/O 
and shared input/output areas are specified, additional 1/O 
is dropped, and a warning message is given. 


ADDROUT Files 


When describing an ADDROUT file, you must place a T in 
column 32. The ADDROUT file must be a disk file. See 
Column 28, Mode of Processing for a description and 
example of ADDROUT processing. 


Records are stored on disk in the order 
indicated by the relative record numbers. 
Spaces are left on disk for missing 
records (in this case, records 5 and 7). 






COLUMNS 33-34 (OVERFLOW INDICATOR) 


Entry Explanation 

OA-OG, An overflow indicator is used to condition 

OV records in the file. The indicator specified 
is the one used. 

Blank No overflow indicator is used. 

Columns 33-34 apply to output files assigned to the printer. 

Use these columns to indicate that you are using an over- 

flow indicator to condition records being printed in the file. 

Any overflow indicators used in a program must be unique 

for each output file assigned to the printer. Note that only 

one overflow indicator can be assigned to a file. Do not 

assign overflow indicators to a console file. 


Overflow Indicators 


Overflow indicators are used only with printer files, pri- 
marily to condition the printing of heading lines. If you 
intend to use an overflow indicator to condition output 
lines on the printer, you must assign an overflow indicator 
to the printer file on the File Description Sheet (columns 
33-34). The same indicator must be used to condition all 
lines that are to be written only when overflow occurs. 


If the destination of a space/skip or print operation is a 
line beyond the overflow line, the overflow indicator is 


turned on and remains on until all overflow lines are printed. 


However, if a skip or space is specified that advances the 
form past the overflow line to the first line or past the first 
line on a new page, the overflow indicator does not turn on. 


If an overflow indicator is used as a conditioning indicator, 
it indicates that output is to be performed at overflow time. 
This applies whether or not the line conditioned by the 
indicator is in an AND or OR relationship with other indi- 
cators, 


The overflow indicator may be set by the SETON or 
SETOF operation code. After all total records have been 
written, however, the indicator is set as it normally is in 
accord with the overflow line. 


USING OVERFLOW 


When the printer has reached the end of a printed page, 
RPG II language allows you to do one of three things: 


1. | Advance to the top (line 6) of the next page and 
continue printing. 


2. Ignore the fact that the end of the page has been 
reached and keep right on printing. 


3. Print special lines at the bottom of the page and at 
the top of the new page. 


You automatically get the first option by not assigning an 
overflow indicator. You get the second by assigning an 
overflow indicator and never using it to condition output 
lines. You get the third by assigning and using overflow 
indicators, These three possibilities are described as follows: 


1. For every job you do you must determine how many 
lines will be printed on each page or form. You can 
indicate this by line counter specifications. From 
these specifications RPG II determines which line is 
the overflow line. (The overflow area includes the 
first line past the overflow line to the end of the 
form.) When the overflow line is sensed, an overflow 
indicator automatically turns on and the following 
steps occur: 

a. Detail lines are printed (if this part of the program 
cycle has not already been completed). 

b. Total lines are printed if required. 

c. Forms advance to a new page. 

d. The overflow indicator turns off. 


2. If you are not concerned about pages or skipping to 
new pages and want one continuous listing, you must 
make an entry that will cause the automatic handling 
of overflow and advancing of forms to be discontin- 
ued. To cause overflow to be ignored, assign an over- 
flow indicator to the printer file in columns 33-34 of 
a file description specification line. 


3. If you are concerned about pages and want certain 
lines to appear on each page, assign an overflow indi- 
cator to the printer file in columns 33-34 of the File 
Description Sheet (Figure 23). Use this same indica- 
tor to condition those lines which you want printed 
on every page. Usually these lines are total lines 
which must be printed at the bottom of every page, 
or heading lines which must be printed at the top of 
each new page. 
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Figure 23. Assigning an Overflow Indicator 


When an overflow indicator is assigned and used, forms do 
not automatically advance to a new page. You have to 
specify a skip to the first printing line on a new page. This 
skip is usually specified on the first heading line you want 
printed on the new page (Figure 24), 


In the case where you have specified an overflow indicator 
and are using it to condition output lines, the following 
steps occur when the overflow line (end of page) has been 
sensed: 


a. Detail lines are printed (if that part of the program cycle 
has not already been completed). 

b. Total lines are printed (except at LR time). 

c. Total overflow lines are printed if conditioned by the 
overflow indicator. 

d. Forms advance to the next page if indicated by the skip 
specification on a heading line or total line. 

e. Headings and detail lines are printed, if conditioned by 
overflow indicators. 


Writing Specifications Using Overflow Indicators 


Often you want each page to contain information from 

only one control group. (Information from one group may 
require several printed pages, however.) You might also 
wish each page to have headings identifying the type of in- 
formation on the page. For these cases you need to use- 
both the control level indicators and the overflow indicators. 
Together they condition when headings and/or group infor- 
mation are to be printed. 
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Figure 24. Advance Furis io New Page 


A new page should advance either when the overflow line 
has been reached (the overflow indicator you assigned is on) 
or when there is a change in a control field (L indicator is 
on). You must specify that each indicator causes a new 
page to be advanced by specifying a skip to the first print- 
ing line on a page. If the control level has changed and the 
overflow condition has occurred at the same time, it is 
possible to duplicate an output line (one called for by the 
overflow indicator, the other by the control level indicator). 
A blank page can also appear in your report as a result. 


Figure 25 shows the coding necessary for printing headings 
on every page: first page, every overflow page, and each 
new page to be started because of a change in control fields 
(L2 is on). Line 01 allows the headings to be printed at 
the top of a new page (skip to 01) only when an overflow 
occurs (OV is on and L2 is not on). 


Line 02 allows printing of headings on the new page only 
at the beginning of a new control group (L2 is on). This 
way, duplicate headings caused by both L2 and OV being 
on at the same time do not occur. Line 02 allows headings 
to be printed on the first page after the first record is read. 
This is true because the first record always causes a control 
break (L2 turns on), if control fields are specified on the 
record. (If the first record did not have a control field, 
another OR line would be necessary with a 1P entry in 
columns 24-25.) 


Figure 26 shows the necessary coding for the printing of 
certain fields on every page: a skip to 01 (first line on new 
page) is done either on an overflow condition or on a 
change in control level (L2). The NL2 indicator in line 01 
prevents the line from printing and skipping twice in the 
same cycle. 
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Fetching The Overflow Routine 


When the overflow line is reached, the same sequence of 
events always takes place. These were described previously. 
Briefly, remaining detail lines, total lines, and total over- 
flow lines (lines conditioned by the overflow indicator) are 
printed on the page even after overflow has occurred. 
Therefore, you must leave enough room between the over- 
flow line and the actual end of page to have room for all 
these lines to print. 


However, you can run into problems when you do this. For 
example, if a different number of detail or total lines can be 
printed each time, you may not have allowed enough room 
between the overflow line and the end of page to take care 
of all total lines which will print before the forms advance. 
Therefore, printing is done on the perforation. You may 
also have to allow so much room between the overflow line 
and the end of page that often only half a page is used. 


To take care of these problems, you may call for the 
printing of overflow lines and a forms advance any time 
after the overflow line has been reached. Causing overflow 
lines to be printed ahead of the usual time is known as 
fetching overflow. When overflow is caused in this way, the 
following events occur: 


1. All total lines conditioned by the overflow indicator 
are printed. 


2. Forms advance to new page when a skip to 01 has 
been specified in a line conditioned on an overflow 
indicator. 
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Figure 25, Printing Headings on Every Page 
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3. Heading and detail lines conditioned by the overflow 
indicator are printed. 


4. The line that fetched overflow is printed. 


Wn 


Any detail and/or total lines left to be printed for 
that program cycle are printed. 


For the printer file, an F in column 16 on the Output- 
Format Sheet specifies that the overflow routine will be 
fetched. An F'can be specified for any total, detail line, 
or exception line except those conditioned by an overflow 
indicator. 


Figure 27 shows the use of a fetched overflow routine (F 

in column 16). The total lines 03, 09, and 11 can fetch the 
overflow routine. They do this, however, only if the over- 
flow line has heen sensed prior to the printing of one of 
these lines. If the overflow indicator is turned on before 
the output line specified in line 03 is printed and if control 
level indicator L1 is on, forms advance to the new page as 
specified by the skip entry in the heading line. The heading 
line and all total lines are printed on the new page. If, how- 
ever, the printing of the line specified in 03 caused the 


overflow indicator to turn on, the following happens: 


1. The line specified in 05 prints on the same page. 

2. The line specified in 07 prints on the same page. 

3. The line specified in 09 fetches an overflow (F in 
column 16) and causes the heading line and all 


total lines (09, 11, 13, and 15) to print on the new 
page. 
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If the output lines specified in 09 fetched overflow, line 11 
does not fetch a new page again since the overflow indicator 
is turned off after line 09 fetched overflow. (Remember, a 
line can fetch overflow only when the overflow indicator is 
on.) Line 11 fetches overflow only if the output line speci- 
fied in 09 causes the overflow indicator to turn on. 


You should fetch the overflow routine (F in column 16) 
only when you feel that (1) this line, when printed, could 
cause overflow and (2) if it did, there would not be enough 
room left on the page to print the remaining detail and/or 
total output lines plus lines conditioned by the overflow 
indicator. 


When more than one printer file is used, fetch overflow 
applies only to the overflow lines associated with the file 
containing the record that specified fetch. 


Note: Fetch overflow cannot be specified when an over- 
flow indicator is specified in columns 23-31 on the same 
specification line. If this condition does occur, fetch over- 
flow is not performed. 


Overflow Printing with EXCPT Operation Code 


Overflow indicators cannot condition an exception line, but 
can condition fields within an exception record. The use of 
the EXCPT operation code with the F in column 15 of the 
Output-Format Sheet causes the fields to be printed during 
the time calculations are being performed (normally they 
are printed afterwards). Only the specified fields (identified 
by an £ in column 15) are printed at that time. Even 
though these fields are not printed at the usual time, they 
still have the same effect on the overflow routines as all 
other lines. If the overflow line is sensed when an excep- 
tion field is printed, the overflow indicator turns on as 
usual, 


Genera! Considerations 


When using the overflow indicator to condition overflow 
printing, remember: 


operation codes SETON and SETOF. 


N 


i rlimna napene tha nyarflaw 
Spacing past the overflow line causes the overflow 


indicator to turn on. 


3. Skipping past the overflow line to any line on the 
new page does not turn the overflow indicator on. 


4. Skipping past the overflow line to a line on the same 
page causes the overflow indicator to turn on. 


5.  Askip to a new page specified on a line not con- 
ditioned by an overflow indicator causes the overflow 
indicator to turn off. 


Figure 28 shows the setting of overflow indicators during 
the normal overflow routine and during a fetched overflow 
routine for both normal output and exception output. The 
left-hand portion of the graph shows when the indicators 
are on or Off in relation to the general program cycle. For 
example, if, during normal output, a detail line is printed 
on the line number specified as the overflow line, the over- 
flow indicator turns on. It remains on until the end of the 
next program cycle. The solid blank lines indicate that the 
indicator is on. The dashes are used to show a connection 
between the end of one cycle and the start of the next. 


COLUMNS 35-38 (KEY FIELD STARTING LOCATION) 


Entry Explanation 


1-4096 Record position in which the key field 


begins. 


Columns 35-38 apply to indexed disk files only. An entry 
must be made in these columns for an indexed disk file. 
Use them to identify the record position in which the key 
field begins. The key field of a record is the field that con- 
tains the information that identifies the record. The infor- 
mation is used in the index portion of the file. The key 
field must be in the same location in all of the records in 
the file. 


The number you place in these columns must end in column 
38. Leading zeros can be omitted. 
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Figure 28, Overflow Printing: Setting of the Overflow Indicator 


COLUMN 39 (EXTENSION CODE) 


Entry 


E 


om 


54 


Explanation 


Extension specifications further describe 
the file. 
Line counter specifi 


describe the file. 


antinan frreth 
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Column 39 applies to (1) table and array files that are to 

be read during program execution, (2) record address files, 
and (3) output files that are assigned to the printer. Output 
files that are assigned to the printer can be described on the 
Line Counter Sheet. Table, array, and record address files 
must be described on the Extension Sheet. 


COLUMNS 40-46 (DEVICE) 


Entry Explanation 
MFCU1 Multi-Function Card Unit. 

The cards are in the primary hopper. 
MFCU2  Mutli-Function Card Unit. 


The cards are int 
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PRINTER Printer (whole carriage). If the dual carriage 
feature is used, this entry refers to the left 
carriage. 


PRINTR2 Right carriage of the printer (dual carriage 
feature only). 


CONSOLE Printer-keyboard. 


DISK 5444 Disk Unit. 
DISK45 5445 Disk Unit. 
TAPE 3410 Magnetic Tape Unit. 


SPECIAL Device not supported by RPG II. 


Use columns 40-46 to identify the input/output device to 
be used for the file. All entries must begin in column 40. 

The devices that can be used depend upon the form of the 
records (Figure 29). 


CONSOLE (Printer-Keyboard) 


Figure 29 shows the file types that can be assigned to the 
printer-keyboard (CONSOLE). More than one printer- 
keyboard file may be described in a program. 


Records entered from a printer keyboard file will be 
treated as any other records. Every character to be entered 
must be keyed in. Key the information into the fields as 
you would into a card. Fields must be properly right- 
justified and left-justified by you. You must space where 
blanks appear in a record. The END key must be depressed 
after all characters have been keyed into a record. 


If the operator hits the CNCL (CANCEL) key, those charac- 
ters of the record already accepted will be “erased’’; the 


keying element will return to column 1, and the operator may 


begin to key the record in again. If the operator keys in 
more characters than are specified for a record, the record 
is automatically cancelled and the operator is notified to 
key it in again. 


FILE 


Primary or Secondary 
Input Files 


Record Address Files 
Containing Record-Key 
Limits 


ADDROUT File 


Demand Files 


Table Files 


Chained Input Files 


Update Files (Primary, 
Secondary, or Chained) 


Combined Files (Primary 
or Secondary) 


Output Files 


Display File 


@ Figure 29, Device Assignment 
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Tape TAPE 
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operator 
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Tape TAPE 
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Disk DISK or DISK45 
Tape TAPE 


Keyed inby CONSOLE 
operator 


Cards MFCU1 or MFCU2 
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Tape TAPE 


Keyed in by CONSOLE 
operator 


DISK or DISK45 


DISK or DISK45 


Cards MFCU1 or MFCU2 
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Disk DISK or DISK45 
Tape TAPE 


Printed PRINTER, PRINTR2, 
pages or CONSOLE 


Printed CONSOLE 


pages 
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For use of the printer-keyboard in the display operation, 
see Operation Codes, DISPLAY, in Chapter 8. 


Note: When the printer-keyboard is used as an input device 
it is suggested that some output to the printer-keyboard 
occur before input data is to be keyed in. This provides a 
visual indication in addition to the REQUEST PENDING 
light that data is to be entered on the printer-keyboard. 


> 


Printer Files 


The dual carriage feature allows you to produce two sepa- 
rate printer output files in one program. The two output 
devices assigned to the printer must be named PRINTER 
and PRINTR2. The forms used for the two files are special 
forms such as checks or invoices that are narrower than the 
regular form for your printer. One form is controlled by 
the left carriage of the printer (device name PRINTER) and 
the other form is controlled by the right carriage (device 
name PRINTR2). The two printer files are considered as 
separate output files and must be described as such. A 
minimum of 17 print positions are lost between the two 
forms. Care must be taken, therefore, when describing the 
location (end position) of output fields, to avoid printing 
in positions where there is no form. Numbering of print 
positions is not affected when dual carriages are used; the 
first print position for PRINTR2 depends on where the 
forms are physically located on the carriage. 


Figure 30 shows the columns that cannot be used for the 
devices named. The shaded columns must be blank for the 
device named in the specification line. (MFCU is MFCU1 
or MFCU2; PRINTER is PRINTER or PRINTR2; DISK is 
DISK or DISK45.) 


SPECIAL Device Support 


You can process files using devices not supported by RPG 
II. To do this, you must indicate that the file will be han- 
dled by a SPECIAL device (SPECIAL in columns 40-46 

of the File Description Sheet). You must also supply a 
subroutine to perform the I/O operations required to 
transfer data between the SPECIAL device and core storage 
(subroutine name in columns 54-59 of the File Description 
Sheet). 


For a discussion of the file description specifications 
necessary for SPECIAL device support, see Appendix G. 


COLUMNS 47-52 


Columns 47-52 are not 


COLUMNS 53-65 (CONTINUATION LINES) 


Column 53 
Entry Explanation 
K Continuation record 


Continuation records provide additional information about 
the tape file being defined. A maximum of two continua- 
tion records can be specified for each tape file. When spe- 
cifying a continuation record, columns 54-59 (Continuation 
Line Option) must be coded and columns 60-65 (Continua- 
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@ Figure 31. Tape Continuation Record 


tion Line Entry) may also need to be coded. Figure 31 
shows an example of the coding necessary on the File 
Description Sheet for a continuation line. 


Columns 54-59 (Continuation Lines Option) 


Entry Explanation 


ASCII Tape file defined is an ASCII file (American 


Standard Code for Information Interchange). 
BUFOFF Tape input file contains a block prefix. 


BUFOFF can only be used for ASCII files. Therefore, if 
BUFOFF is entered, ASCII must also be entered. BUFOFF 
also requires an entry in columns 60-65 (Continuation Lines 
Entry). 


Columns 60-65 (Continuation Line Entry) 


Entry Explanation 


0-99 Length of the block prefix in an ASCII tape 


input file that specifies BUFOFF. 
An entry must be specified in these columns if BUFOFF 
has been specified in columns 54-59. This entry cannot be 
specified for tape output files. The entry must end in 
column 65 (right justified). 
COLUMN 53 LABELS 


Column 53 for labels is not used. 
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COLUMN 54-59 NAME OF LABEL EXIT 


Entry Explanation 

SUBRxx Name of the user-written subroutine which 
(x=any will perform the I/O operation for a 
alphabetic SPECIAL device. 

character) 

Blank No SPECIAL device is being used. 


Columns 54-59 must contain an entry for each data file 
assigned to a SPECIAL device. These columns are used to 
specify the subroutine which will perform the input/output 
operations for a file assigned to a SPECIAL device. The 
subroutine name entered in columns 54-59 can be from 
four to six characters long. The first four characters must 
be SUBR; the remaining characters can be any alphabetic 
characters. 


COLUMNS 60-65 CORE INDEX 


Entry Explanation 

6-9999 Number of bytes reserved for the core 
index. 

Blank No core index will be built. 


Columns 60-65 apply only to indexed files processed ran- 
domly. Core index cannot be specified in shared I/O. En- 
tries must be right-justified. Leading zeros are not required. 
You can specify up to 9999 bytes for the core index. This 
will usually provide for faster retrieval of records. 
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Figure 32. Disk Layout of the Index for INDEXT 


The core index is a table containing entries for tracks in 
the index portion of a data file. Each entry contains a 
track address and the lowest key field associated with that 
track. Figure 32 shows the layout on disk of the index for 
the indexed file, INDEXT, which contains 1000 records. 
Since all index entries are contained on three tracks, the 
core index for INDEXT shows in Figure 33 contains only 
three entries, one per track. Each core index entry con- 
tains the low key on the track and the track address. 
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Use of the core index can significantly reduce the amount 
of time needed to process an indexed file because it enables 
the system to go more directly to the specific record you 
want. With the core index, the system can find a specific 
record by searching only a small part of the file index. 


Without the core index all index entries that precede the 
record you want must be searched. Using the core index 
shown in Figure 32, record 767 can be found in this 
manner: 


1. Search the core index until the first key field higher 
than record 767 is located. In this instance the key 
is 769, on track C. Since 769 is the low key on 
track C, key 767 must reside on track B. 


2. Search track B in the file index until key 767 is 
located. 


3. Chain directly to the associated data record. 


In columns 60-65 you specify the number of storage posi- 
tions (bytes) you wish reserved for the core index. Using 
the amount of core storage you specify, the system builds 
the most efficient core index it can. The core index is 
built immediately before your RPG II program is executed. 


For efficient processing, the core index should be large 
enough to contain one entry (low key and track number) 
for each track of index in the data file. Therefore, the most 
efficient size for the core index is equal to key field length 
plus 2, multiplied by the number of tracks in the file index. 
For the indexed file, INDEXT, in Figures 32 and 33, the 
entry in columns 60-65 would be 45: 


13 (keylength) 
+ 2 (length of a track address) 


15 (length of a core index entry) 
x 3 (number of file index tracks) 
45 (size of core index) 


If the storage space you specify in columns 60-65 is not 
large enough to contain one entry for each track of file 
index, the system may construct a core index containing 
one entry for every cylinder of file index or, perhaps, for 
every other cylinder. 


If storage space is not enough for at least two index entries, 
the entry is ignored and no core index is used for this job. 


COLUMN 66 (FILE ADDITION) 


Entry Explanation 
A New records will be added to the file. 
U Records for an indexed file are to be 


loaded in unordered sequence. 


Column 66 applies to sequential and indexed disk files. 
This column indicates: 


I. The program is to add new records to the file (see 
Examples, Example 1). 


2. Records are to be loaded in an unordered sequence 
(see Examples, Example 2). 


Records added to a sequential file are added at the end of 
the file. To add records to a sequential file, the file must 
be an output file (0 in column 15 of the File Description 
Sheet). 


Records added to an indexed file are added at the end of 
the file and entries for the new records are made in the 
index. The index is then reorganized so that the record 
keys (including the new ones) are in ascending order. 


File addition in column 66 cannot be specified for indexed 
files from which records are read using the sequential within 
limits method. Records added to an indexed file should be 
in ascending sequence. New records may be added to a dir- 
ect file by specifying the file as an update file processed con- 
secutively or by the CHAIN operation code. 


After a file has been loaded on disk, it may be necessary to 
add records to the file. Records can be added at detail, 
total, or exception time during the program cycle. When 
records are to be added to an indexed file randomly, the 
records to be added may: 


1. Contain keys that are above the highest presently 
in the file. In this case, the records constitute an 
extension of the file. 


Contain keys that are either lower than the lowest 
presently in the file, or fall between those already 
in the file. 


ho 


If records are to be added to an indexed file sequentially: 


1. The record to be added must be lower than the rec- 
ord currently in process and higher than the preceding 
record. 


2; The file must be at end of file. 


If the above conditions do not exist, a halt occurs; other- 
wise, the record is added. (See Appendix A for a discus- 
sion of halts and operator options.) 


Unordered Load (U in column 66) is specified when an 
indexed file is to be built from records in an unordered 
sequence. After records have been loaded and an index 
built in the unordered sequence, the index is sorted into 
ascending sequence. 
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In Figure 34, combinations of entries in file type (column 
15) and file addition (column 66) show the functions that 
can be performed for indexed files (/ in column 32). 


Column 15 Column 66 


Examples 
Example 1 


Figure 35 shows how records can be added to an indexed 
disk file. The new records are contained in a card file, 
CARDIN. The file INDEXED is the existing disk file to 
which new records will be added. A printer file, PRINT, 
will provide a report showing all the records in CARDIN, 
with an indication of which records were added to 
INDEXED and which records were not added. 


On the File Description Sheet, an A must appear in column 
66 for the file INDEXED, and on the Output Sheet ADD 
must appear in columns 16-18 for the new record to be 
added. 


As defined on the Input Sheet, all the cards in CARDIN 
should have an A in position 80. The code identifies a 
record to be added to the disk file, and this record type is 
assigned indicator 01. On the Output Sheet, notice that 
wheri 01 is on, the data from the card is written on the disk 
file INDEXED and is also printed on the file PRINT to keep 
a visual report of new records. 
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Function 


Load records in ascending 
key sequence to an 
indexed file. 


Load records in unordered 
key sequence to an indexed 
file. 


Add records to an 
existing indexed file, 


Read records of an indexed 
file without adding new 
records or updating records. 


Read records of an indexed file 
and add new records to the 

file that are not presently 

there. No updating is performed. 


Update records of an 
indexed file without 
adding new records. 


Update records of an 
indexed file and add new 
records to the file. 


* An Ain column 66 requires an ADD entry in 
columns 16-18 of the Output-Format Sheet. 


Figure 34, Various Functions Performed on Indexed Files 
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Figure 35. File Addition (Part 1 of 2) 
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Figure 35. File Addition (Part 2 of 2) 


File Description Specifications 61 


There may be records in CARDIN that do not belong in 
that file, or some records may have a keypunch error. 
These records are identified on the Input Sheet as not 
having the character A in position 80. These records will 
turn on indicator 02, and are not to be added to the disk 
file INDEXED. On the Output Sheet, the constant 
RECORD NOT ADDED is printed only on indicator 02, 
indicating a record that was not added to the disk file. In 
this manner, there will be a printed report of all records in 
CARDIN, and the records not added to INDEXED are 
identified by the constant RECORD NOT ADDED. 


Example 2 


Figure 36 shows the unordered loading of an indexed disk 
file from an unsequenced input card file. The output file, 
MASTER, is described as an indexed file to be loaded and 
processed by record keys. The U in column 66 of the 
File Description Sheet indicates that an unordered load is 
to be done. The input file, CARDS, is described on the 
Input Sheet as being without sequence. 


IBM international Business Machines Corporation 


The keys from which the index is to be built appear as the 
first eight positions of the output record. As the disk file 

is loaded, the key is extracted from the record and an index 
entry is built including the location of the record on disk. 
After the entire file has been loaded and an index entry has 
been constructed for each record, the index entries are 
sorted into ascending sequence. 


COLUMN 67 


Column 67 is not used. 


COLUMNS 68-69 (NUMBER OF EXTENTS) 
Entry Explanation 


Blank Single volume file (non-indexed). 


1-50 Number of volumes that contain the file. 


Form X21-9092 
Printed in U.S.A. 
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Figure 36. Unordered Loading of an Indexed File (Part 1 of 2) 
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Figure 36. Unordered Loading of an Indexed File (Part 2 of 2) 
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The entry must end in column 69. These columns define For multi-volume files, determine the entry as follows: 
the number of volumes (disks) on which the disk file is 
located. A disk file must occupy consecutive cylinders on 1. | Consecutive Processing or Processing by Keys. A disk 
each volume. For instance, a disk file could not occupy file to be processed consecutively or by keys can be 
cylinders 20-30 and 41-50 on one volume. The file could located on a fixed disk, a removable disk, or both if 
occupy cylinders 20-40 on that volume, or the data in the entire file is on-line during processing. However, 
cylinders 41-50 could be placed on another volume. when portions of the file are off-line during processing, 
the file must be located on removable disks only. If 
The number of volumes you can use depends on the mode a multi-volume file is to be processed consecutively 
of processing and number of drives used. For single volume or by keys, the entry in columns 68—69 can be from 
files the entry in columns 68-69 must be 01 or blank. The 2—50. (If one drive is used for multi-volume files, 
Number of Extents entry in columns 68-69 must not be only one volume can be on-line at any given time, 
greater than 01 when sequential processing within limits and if two drives are used, only two volumes can be 
(L in column 28 and A in column 31) or an unordered load on-line at any given time.) 


(U in column 66) is specified for the file. 
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2. Random Processing by Reiative Record Number. A 
disk file to be processed randomly by relative record 
number can be located on a fixed disk, a removable 
disk, or both. To process a multi-volume disk file 
randomly by relative record number, the entire file 
must be available to the system at any given time. 
Therefore, the entire file must be on-line. If one 
drive is used for multi-volume files, the entry in 
columns 68-69 is 2. If two drives are used for multi- 
volume files, the entry in columns 68—69 can be 2, 3, 
or 4. Figure 37 shows the maximum number of 
volumes allowed for each processing method and num- 
ber of drives available. 


Multi-volume processing cannot be used with shared I/O. 
Additional information on creating and processing multi- 
volume files, including Operation Control Language state- 
ments, is contained in the JBM System/3 Disk System 
Operation Control Language and Disk Utilities Reference 
Manual, GC21-7512. 


COLUMN 70 (TAPE REWIND) 


Entry Explanation 

R Rewind tape at end of file. 
U Unload tape at end of file. 
N Leave tape at end of file. 


Column 70 is used only with tape files to control the 
rewinding and unloading of tapes. This entry specifies 
what the system should do with the tape after the tape 
files have been processed. These entries may be overridden 
by the END parameter on the FILE statement. 


If column 70 is left blank, the tape rewind information 
specified at program execution time is assumed. 


COLUMNS 71-72 (FILE CONDITION) 


Entry Explanation 

U1-U8 The file is conditioned by the specified 
external indicator. 

Blank The file is not conditioned by an external 


indicator. 
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or processing 
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disks) 


Sequential 
or Random 


Processing 


(removable 
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disks) 


Figure 37. Number of Volumes Allowed for Multi-Volume Files 


Columns 71-72 apply to primary and secondary input 
(excluding table input files), update, output, and combined 
files. A record address file may be conditioned by an exter- 
nal indicator which is off, it will be in end of file status. If 
an output file is conditioned by an external indicator which 
is off, records will not be written on that file. Any calcula- 
tion operations which should not be done when the file is 
not in use should also be conditioned by the same indicator. 
When the indicator is off, the file is treated as though the 
end of file had been reached; that is, no records can be 

read from or written in the file. If a disk file is conditioned 
by an external indicator which is off, the FILE OCL state- 
ment for that file should be removed. 


Note: Information on setting external indicators (SWITCH 
OCL statement) can be found in the JBM System/3 Disk 
System Operation Control Language and Disk Utilities 
Reference Manual, GC21-7512. 


U1-U8 (External Indicators) 


Indicators U1-U8 are external indicators. This means they 
are set prior to processing by Operation Control Language. 
Their setting cannot be changed during processing. Thus, 
the program has no control over them. 


You may use these indicators as file conditioning indicators. 


They tell whether or not a certain file is to be used for a 
job. For example, you may have a job which one time 
requires the use of two output (or input) files and another 
time the use of only one. Instead of writing two different 
programs (one using one file, the other two), you can con- 
dition a file (in the file description specifications) by an 
external indicator. When the indicator is on, the file is 
used; when it is off, the file is not used. 

If a file is conditioned by an external indicator, output 

data handled by the file can also be conditioned by the 
same indicator. If an input file is conditioned by an exter- 
nal indicator which is off it will be in end of file status. If 
an output file is conditioned by an external indicator which 
is off records will not be written on that file. Any calcula- 
tion operations which should not be done when the file is 
not in use should also be conditioned by the same indicator. 


In addition to using these indicators as file conditioning 
indicators, you may use them: 


1. Tocondition calculation operations. 
2. To condition output operations. 


3. As field record relation indicators (columns 63-64 
of Input Specifications Sheet). 


COLUMNS 73-74 


Columns 73-74 are not used. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 


FILE DESCRIPTION CHARTS 
The File Description Charts in the following pages (Figures 
38-45) are for: 


1. Disk files, presented by disk file organization and 
processing method. 


N 


MFCU, Console, and Printer files. 
3. Tape files. 


@ The entries in the chart must be made for the 
processing method and type of file described on 
that line. 


@ The shaded columns must be blank for the file 
described on that line. 


@ The other columns may be required or optional, 
but cannot be indicated on the chart because the 
entries represent information that changes from 
program to program. 


If you are updating an indexed disk file using the CHAIN 
operation code, look at the chart for indexed disk files, 
random processing by CHAIN operation code. Then choose 
the chained update file with or without record addition. 


The entries on the chart must be made for the file you are 
describing. The shaded columns must be blank for that file. 


The remaining columns represent information that changes 
from program to program. For instance, in this example 
these columns are required but may change from one pro- 
gram to another: Filename, Record Length, Length of Key 
Field, and Key Field Starting Location. Optional entries 
are: End of File, Sequence, File Condition, Line, Block 
Length, Number of Extents, and Cylinder Index in Core. 
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igure 38. Processing Methods for Indexed Disk Files 
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record from beginning to end, the file is processed through the index using the 


sequential by key method. 
Note: Either DISK or DISK45 can be specified as the device (columns 40-46). 


* Sequential processing by key or limits must use the file index, which is always 
arranged in ascending sequence. When an indexed file is processed record by 
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e Figure 39. Processing Methods for Sequential Disk Files 
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DISK FILES 
File Description Specifications 
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* Records are inserted or changed in a direct file by defining 
the file as an update processed consecutively, or an update 
file processed randomly by the CHAIN operation code. 


Note: Either DISK or DISK45 can be specified as the device (columns 40-46). 
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be associated with indexed disk files, but may be a disk, 
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files). 


Note: Either DISK or DISK45 can be specified as the device (columns 40-46). 
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Figure 42. MFCU Files 
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Figure 43. Console Files (Printer/Keyboard) 
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Chapter 5. Extension Specifications 


Extension specifications are needed to describe the record Record address files require entries on the Extension 

address files, tables, and arrays you may use in your job. Sheet in columns 11-26. 

Enter these specifications on the Extension and Line 

Counter Sheet (Figure 46). Figure 51 is a chart showing possible Extension Sheet 
entries. 


See Tables and Arrays at the end of the column descriptions 
in this chapter for a complete description of tables and 
arrays including definitions of terms used in this chapter COLUMNS 1-2 (PAGE) 
and examples of tables and arrays. 
See Chapter 2. 
Pre-execution time tables and arrays are described in 
columns 11-45. Compile time tables and arrays are 
described in columns 19-45, If an alternating table or array COLUMNS 3-5 (LINE) 
is to be specified with another table or array, it is described 
in columns 46-57 of the same line as the first. A maximum See Chapter 2. 
of 60 tables and arrays can be used per program. 
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COLUMN 6 (FORM TYPE) 


An E must appear in column 6, 


COLUMNS 7-10 


Columns 7-10 are not used. 


COLUMNS 11-18 (FROM FILENAME) 


Entry Explanation 

Record The name of the record address file defined 
Address on the File Description Specifications Sheet. 
Filename 

Table or Table or array file loaded at pre-execution 
Array time. 

Filename 

Blank 1. Table or array loaded at compilation 


time if an entry appears in Number of 
Entries per Record (columns 33-35). 


2. Array loaded at execution time 
(loaded via input or calculations speci- 
fications) if there is no entry in Num- 
ber of Entries per Record (columns 
33-35). 


Columns 11-18 are used to name a table file, array file, or 
record address file. Filenames must begin in column 11. 


Leave columns 11-18 blank for compile time tables or 
arrays or for arrays loaded via input or calculations specifi- 
cations (execution time array). These columns must con- 
tain the table or array filename of every pre-execution time 
table or array used in your program. More than one pre- 
execution time table or array can be read from the same 
MFCU file; therefore the From Filename might be the 
same for more than one table or array (this is true only for 
MFCU files). 
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COLUMNS 19-26 (TO FILENAME) 


Entry Explanation 

Name ofan The file processed via the record 

input or address file named under From Filename. 
update file 

Name of an ___ The output file on which a table or array 


output file is to be written at end of job. 


Columns 19-26 define the relationship between a file 
named in these columns and a file named in columns 11-18. 
Filenames must begin in column 19. 


If a record address file is named under From Filename, 
columns 11-18, the name of the primary or secondary file 
that contains the data records to be processed must be 
entered in To Filename, columns 19-26, 


If you wish a table or array to be written or punched, use 
columns 19-26 to enter the filename of the output file you 
will use to do this. This output file must have been previ- 
ously named in the file description specifications. Execu- 
tion time arrays cannot be written at end of job. Leave 
columns 19-26 blank for execution time arrays or if you do 
not want the table or array written or punched. 


If a table or array is to be written or punched, it is auto- 
matically written or punched at the end of the job after all 
other records have been written or punched. 


Since the table or array will be written or punched in the 
same format in which it was entered, you may want to re- 
arrange the output table or array through output-format 
specifications. You may format table or array output by 
using exception lines to write out one item at a time (see 
Operation Codes, Exception in Chapter 8). Tables or arrays 
will be written or punched under RPG II controi only after 
all records have been processed (Last Record indicator is 
on). 


Note: If a table or array is to be written to a printer file 

at the end of a job, the last Output-Format specification 
should be a space or skip to the line at which table or array 
output should begin. 


COLUMNS 27-32 (TABLE OR ARRAY NAME) 


Entry Explanation 

Table or Name of a table or array used in the 
Array program. 

name 


Use columns 27-32 to name your table or array. No two 
tables or arrays may have the same name. The name can be 
from one to six characters long and must begin in column 
27, and must be a valid RPG II name. If alternating tables 
or arrays are being described, this must name the table or 


array whose entry is first on the input record (see Example). 


Table Name 


Every table used in your program must be given a name 
from three to six characters long beginning with the letters 
TAB. Any name in these columns which does not begin 
with TAB is considered an array name. This table name is 
used throughout the program. However, different results 
can be obtained depending upon how the table name is 
used. Factor 2 on the Calculations Sheet can contain the 


name of a table to be searched and the result field can con- 
tain the name of another table from which an associated 
function is to be obtained. When the table name is used in 
Factor 2 or Result Field (on the Calculation Sheet) with 
LOKUP operation, it refers to the entire table. When the 
table name is used with any other operation code, it refers 
to the table item last selected from the table by a LOKUP 
operation. If the table name is used before any successful 
look-ups are performed, the first table item is referenced. 
See Operation Codes, Lookup in Chapter 8 for more infor- 
mation. 


Tables are processed in the same order as they are specified 
on the Extension Sheet. Therefore, if you have more than 
one table, remember the tables are to be loaded in the same 
order as they appear on the sheet. 


Tables cannot be used with an index (see Tables and Arrays, 
Array Name and Index in this chapter). 


Array Name 


Every array used in your program must be given a name 
from one to six characters long. An array name cannot 
begin with the letters TAB. This array name is used 
throughout the program. See Tables and Arrays after the 
column description in this chapter for complete informa- 
tion. 
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Example 


Figure 47, insert A, shows two related tables (TABA and 
TABB) described in alternating form on a table input card. 
An item for TABA appears first. Thus, in insert B, TABA 
is named in columns 27-32 of the Extension Sheet: TABB 
is named in columns 46-51. 


COLUMNS 33-35 (NUMBER OF ENTRIES PER RECORD) 
Entry Explanation 


Number of table or array entries found in 
each table or array input record. 


1-9999 


Indicate in columns 33-35 the exact number of table entries 
in each table or array input record. Every table or array 
input record except the last must contain the same number 
of entries as indicated in columns 33-35. The last record 
may contain fewer entries than indicated, but never more. 


When two related tables are described, each table input 
record must contain the corresponding items from each 
table written in alternating form. These table items are 
considered as one entry (see Example). The number entered 
must end in column 35. Corresponding items from related 
tables must be on the same record. If there is room, com- 
ments may be entered on table input records in columns 
following table entries. 
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When loading an array the following must be considered: 


1. To load a pre-execution time array, the array filename 
must be entered in columns 11-18 and an entry must 
be made in Number of Entries per Record (columns 
33-35). 


2. To loadan array at compile time, the filename entry 
(columns 11-18) must be blank, but an entry must 
be made in Number of Entries per Record (columns 
33-35). 


3. To load an execution time array (via the input and/or 
calculations specifications), the From Filename 
(columns 11-18) and the To Filename (columns 
19-26) entries must be blank and the Number of 
Entries per Record (columns 33-35) must be blank. 


Example 


Figure 47, insert A, shows the table items for the two 
related tables, TABA and TABB. The corresponding items 
in TABA and TABB are considered one entry. Even 
though there are 14 table items on the card, there are only 
7 table entries. Insert B shows the Extension specifications 
which describe TABA and TABB as related tables. 


TABA TABB* 


1 2 3 4 8 © 7 S BS Wil 12 13 14 15 6 17 Ww 20 21 22 23 24 25 26 27 20 28 90H SF 


(account number) (amount due) 





33 34 33 36 37 36 WS 40 41 42 43 44 45 46 47 48 40 SO 51 S253 54 SS S657 SE Sd GO 61 62 63 64 


— — — Corresponding 


: Table Items 65 66 67 68 6B 70 7) 72 73 74 7S 76 77 7B 79 OO O1 OF 63 84 06 OF 87 86 80 90 01 H2 93 94 95 96 
00039.00 

97 98 BB 100 101 102 103 104 105 106 107 108 108 O Mt NZ HS 14 MS 1S 17 WS NO 120 1 2 123 124 125 126 127 120 
B 4 2 8 
00156.72 *Decimals in TABB = eee eee 
are for illustration 4 TAB, TAB ; TAB, TAB } TAB ‘ 
0001 7.98 only. Decimal! i 12 ‘34 Ah 78 8 oO ah “4 1S 6 ais w 20 2 22 23 ale a 27 i 
points are not a - 5 A 
00002.97 part of table or 8 ——_—_—_—*™_>_—KXKre=_|_—__ eee 8 
array input data. ‘ TAB, TAB , TAB TAB ! TAB TAB 

B ! 1 
00290.98 . yo MB sels 3” e alae a3 44 B. a7 ala 0 A sa! se $3 sé Bb. 39 soles 62 A, 2 
a & 7 A 
8 —_ So) 8 
Deel eee 4) TAB 1 TAB 1 TAB ‘ 
! 

OO ! we 6” hoe 72 7 nas ™ & ate v won eo wl 86 07 68 09 90 91 82 93 94 95 96 1 








5 7 13M 3700 


Positions Positions The corresponding items from the related 


tables are punched in alternating format on 
the table input card. The corresponding 

(A) items from the two related tables are 
considered as one entry. 
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COLUMNS 36-39 (NUMBER OF ENTRIES PER TABLE 
OR ARRAY) 


Entry Explanation 


1-999 Maximum number of table or array entries. 
Use columns 36-39 to indicate the maximum number of 
table items which can be contained in the table named in 
columns 27-32, or the maximum number of array items 
which can be contained in the array named in columns 
27-32. This number may apply to one table or to two 
alternating tables. If alternating tables are described, 
corresponding table items are considered one entry. Any 
number entered in these columns must end in column 39, 


If your table or array is full, this entry gives the exact num- 
ber of items in it. However, if the tabie or array is not fuil, 
the entry gives the number of items that can be put into it 
(Figure 48). A table or array that is not full in known as a 
short table or array. 


Since the number of items for two related tables or arrays 
must be the same, the entry in these columns also gives the 
number of items in a second table or array (columns 46-51). 


If sterling is specified on input for an array, the actual 
length must be given. 


COLUMNS 40-42 (LENGTH OF ENTRY) 


Entry Explanation 


1-256 Length of a table or array entry. 

Use columns 40-42 to give the length of each entry in the 
table or array named in columns 27-32. The number 
entered must end in column 42. For numeric tables or 
arrays in packed decimal format (see Column 43, Packed or 
Binary Field), enter the unpacked decimal length in columns 
40-42. For numeric tables or arrays in binary format, enter 
the number of bytes required in storage for the binary field. 
For a 2 character binary field, the entry in columns 40-42 

is 4; for a 4 character binary field the entry is 9. 


All table items must have the same number of characters. 

It is almost impossible, however, for every item to be the 
same length. Therefore, add zeros or blanks to the front of 
numeric items to make them the same length and add blanks 


ta alnhameric itemc Far alnhamoarir itame Hanke maw ha 
ad Sep Skee haw eRe aewsaave awe et prs serssiws io abwitanys auerstaryv saa y vw 


added either before or after the item (see Examples, 
Example 1). 
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TABPRT 
(Part Number) 


TABAMT* 
(Price) 





lf this data is loaded, TABPRT 
and TABAMT will be full (20 
entries fill the table). 


TABPRT TABAMT* 
(Part Number) (Price) 


If this data is loaded, TABPRT 
and TABAMT will not be full. 


* Decimals are for illustration only. 
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whose item appears first on the record (see Examples, 


Example 2). 


The maximum length of a numeric item is 15 characters. 
The maximum length of an alphameric item is 256 char- 
acters. See Tables and Arrays in this chapter for more 


information. 


Examples 


Example 1: Figure 49 shows a table, called TABM 

which lists the months of the year. The name 
SEPTEMBER, having nine characters, is the longest entry. 
Because the lengths of the entries must be the same, blanks 
are added to the remaining names to make each of them 
nine characters long. 


Example 2: Figure 50 shows entries in a table input card 
for related tables, TABC and TABD. Each item in TABC is 
two characters long; each item in TABD is six characters 
long. Since TABC appears first on the card, its length (2) is 
specified in columns 40-42. The length of items in TABD 
is indicated in columns 52-54. 
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COLUMN 43 (PACKED OR BINARY FIELD) 


Entry Explanation 

Blank Data for table or array is in unpacked deci- 
mal format or is alphameric. This is used for 
execution time arrays (must be blank for 
compile-time tables or arrays). 

P Data for table or array is in packed decimal 
format. 

B Data for table or array is in binary format. 


For a complete discussion of unpacked decimal, packed 
decimal, and binary data representation, see Column 43, 
Packed or Binary Field in Chapter 7. 


COLUMN 44 (DECIMAL POSITIONS) 


Entry Explanation 
Blank Alphameric table or array. 
0-9 Number of positions to the right of the 


decimal in numeric table or array items. 


Column 44 must always have an entry for a numeric table 
or array. If the items in a numeric table or array have no 
decimal positions, enter a 0. 


If two alternating tables or arrays are described in one file, 


the specification in this column applies to the table con- 
taining the item which appears first on the record. 


COLUMN 45 (SEQUENCE) 


Entry Explanation 

Blank No particular order. 
A Ascending order, 

D Descending order. 


Use column 45 to describe the sequence (ascending or 
descending) of the data in a table or array. Execution time 
arrays are not checked for sequence, but column 45 must 
contain an entry if high or low LOKUP is to be used. 


When an entry is made in column 45, the table or array is 
checked for the specified sequence. If a pre-execution time 
table or array is out of sequence, an error occurs and 
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the program halts immediately. The program can be restarted 
from the point where it halted if you do not want to correct 
the out-of-sequence condition; however, if you do correct 
the out-of-sequence condition, program execution must be 
restarted from the beginning. 


Ascending order means that the table or array items are 
entered starting with the lowest data item (according to the 
collating sequence) and proceeding to the highest. Descend- 
ing order means that the table or array items are entered 
starting with the highest data item and proceeding to the 
lowest. 


If alternating tables or arrays are described in one file, the 
entry in column 45 applies to the table or array containing 
the item which appears first on the record. 


When you are searching a table or array for an item 
(LOKUP) and wish to know if the item is high or low com- 
pared with the search word, your table or array must be in 
either ascending or descending order. See Operation Codes, 
Lookup in Chapter 8 for more information. When a speci- 
ific sequence has been specified, RPG II checks the data in 
the table or array to see if it really is in that sequence. In 
checking for sequence, an equal condition is considered 
valid. This allows you to pad the beginning of the table 
with zeros or blanks, or to pad the end of the table with 
9’s (assuming ascending sequence). 


COLUMNS 46-57 


Use columns 46-57 only when describing a second table or 
array which is entered in alternating format with the table 
or array named in columns 27-32. All fields in this section 
have the same significance and require the same entries as 
the fields with corresponding titles in columns 27-45. An 
alternating array cannot be described with an execution 
time array. See the previous discussion on those columns 


for information about correct specifications. 

COLUMNS 58-74 (COMMENTS) 

Enter any information you wish in columns 58-74. The 
comments you use should help you understand or remember 
what you are doing in each specification tine. Comments 
are not instructions to the RPG II program; they serve only 
as a means of documenting your program. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 
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@® For tables and arrays except execution time arrays, columns 19-26 and columns 46-57 are optional. 
@ €xecution arrays are loaded via input and/or calculation specifications. 


@ For record address files, columns 11-26 must have entries. 


Figure 51. Possible File Entries for Extension Specifications 
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TABLES AND ARRAYS 


Tables and arrays are systematic arrangements of data items 
having like characteristics; that is, the same field length, data 
type (alphameric or numeric), and number of decimal posi- 
tions. Both tables and arrays are described on the Extension 
Specifications Sheet. Important differences exist, however, 
in defining and processing tables and arrays. 


Tables are used during the execution of a program much 
like a shipping clerk would use a rate table for obtaining 
freight rates. The clerk might scan the table for the desired 
city, then select the corresponding rate. Tables are refer- 
enced by searching the table one item at a time for a speci- 
fic item of data with a unique identifier. Table names must 
begin with the letters TAB. 

Arrays can also be searched for a uniquely identified data 
item. Unlike tables, however, array items can also be refer- 
enced by their relative position to other items. This is done 
by indexing to a specific item in the array. Also, an entire 
array can be processed sequentially by using the array name 
only once in certain calculation operations. Array names 
must not begin with the letters TAB. 


Several terms are used to describe tables and arrays: 


® Compile time tables and arrays are compiled with the 
source program and become a permanent part of the 
object program. A compile time table or array can be 
permanently changed only by recompiling the source 
program with the revised table or array. 


@ Pre-execution time tables and arrays are loaded with 
the object program before actual execution of the 
RPG II program begins; that is, before any input files 
are read, calculations performed, or output functions 
performed. 
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@ Execution time arrays are loaded or created by input or 


calculation specifications. They are loaded after actual 
execution of your RPG II program has begun (read in 
as input data or created during calculations in your pro- 
gram). An execution time array is also described on the 
Extension Specifications Sheet. 


Related tables and arrays are tables and arrays that are 
used together. The items in each table or array are 
called corresponding items; each item in the second 
gives additional information about its corresponding 
item in the first. In Figure 52, TABA and TABB are 
related. An item in TABA gives a part number, the 
corresponding item in TABB gives the part cost. Al- 
though all items within one table or array must have the 
same characteristics, corresponding items of related 
tables or arrays may have different characteristics. 
Related tabies and arrays do not have to have the 


number of entries. 


et 


Short tables and arrays are those in which not all of 

the entries contain data. The unused parts of numeric 
tables and arrays are filled with zeros; the unused parts 
of alphameric tables and arrays are filled with blanks. 
You usually create short tables or arrays when you have 
only a few table or array items available when building 
the table, but know that more items will soon be in- 
cluded. Short tables and arrays must have at least one 
entry. 


Full tables and arrays are those in which all possible 
entries contain data. 
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TABA and TABB described as separate tables. 
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Figure 52. Related Tables (TABA and TABB) Described Separately and Alternately 
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Creating Table or Array Input Records 


Table and array data must be recorded according to certain 
rules. In the following list of rules, the term entry refers to 
one element in a single table or array, or to corresponding 
items of related tables or arrays. 


Rules 
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The first table or array entry for each record must 
begin in position 1. 


An entire record need not be filled with entries. In 
this case, blanks or comments can be included after 
the entries. (Figures 53 and 54 show a table input 
record and extension specifications for alternating 
tables. Note that three blanks appear between the 
last table entry and the comment.) 


(a 


Each record, except the last, must have the same 
number of entries. You may want to place just one 
entry on each record or as many entries as the record 
can hold. 


An entire entry must be on one record. It cannot be 
split. Thus the length of a single entry is limited to 
the maximum record length for the device. If related 
tables or arrays are used, corresponding items must 
be on the same record and, together, cannot exceed 
maximum record length for the device. 


Related tables or arrays can be described separately 
or in alternating format. Alternating format means 
that the corresponding items are considered one table 
or array entry. Figure 52 shows ways in which 
related tables or arrays can be described. 


The number of table and/or array names used in a 
program must be no more than 60. 


Table Entries 
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Figure 53. Input Record for Alternating Tables, TABPAR and TABID 


Form X21-9091 
Printed in U.S.A 


Internationat Business Machines Corporation 


RPG EXTENSION AND LINE COUNTER SPECIFICATIONS i a a a 


Program | 
Identification 


Record Sequence of the Chaining File 


Binary 


Binary 
Packed/B 
Decimal Positions 
Sequence (A/D) 


Number of the Chaining Field Number 
Table or i of 


Array Name Entries 
Per Table 


From Filename or Array 


Table or Length 
Array Name | of 
(Alternating 

Format) 


To Filename Comments 


P = Packed/B 


Pp 








PEL eerie 


44145 “TT 
yao] 
TALE TAN 
Hee ae r : i Lt | | 











Extension Specifications 87 


Defining Tables and Arrays 


All tables and arrays are described on the Extension Sheet. 
One line is used to describe one set of table or array input 
records, If only one table or array is described, columns 
11-45 are used. If alternating tables or arrays are described 
on one set of input records, columns 46-57 are used to 
describe the second table or array. If pre-execution time 
tables and array are being described, entries in columns 
11-18 and 27-45 are required, as described in the first part 
of this chapter. Columns 19-26 are used if the table or 
array is to be written or punched at the end of the job. 


Tables and arrays can be specified in any sequence. Com- 
pile time and pre-execution time tables and arrays can be 
mixed. Remember the sequence in which tables and arrays 
are specified on the Extension Sheet determines the order 
in which they must be loaded at the start of the job (see 
Loading Tables and Arrays). 


IBM 


International Business Machines Corporation 


Figure 55 shows the necessary extension specifications for 
each type of array. Line 1 specifies a compile time array, 
ARRAYC. This array has a total of eight elements (three 
elements per record). Each element has a length of 12 posi- 
tions, including four decimal places. Line 2 specifies pre- 
execution time array, ARRAYE, to be read from file 
CARDINP. ARRAYE has 250 alphameric elements (12 
elements per record); each element is 5 positions long and 
is equal to or higher than the previous element in collating 
sequence. Line 3 specifies an execution time array, 
ARRAYI, to be read from input records. ARRAYI has ten 
numeric elements each ten positions long. 


Compile time and pre-execution time arrays (lines 1 and 2) 
can include entries in columns 19-26 (To Filename) and in 
columns 46-57 (to describe an alternating array). Execution 
time arrays cannot have To Filename and alternating array 
specifications. 


Loading Tables and Arrays 


Tables and arrays can be loaded at compilation time or pre- 
execution time. When loaded at compilation or pre-execution 
time, the entire table or array is loaded. Arrays can also be 
loaded at execution time. 
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Figure 55. Specifications for Three Types of Arrays 
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Compilation Time 


Tables and arrays loaded at compilation time are compiled 
along with the RPG II source program. They become a part 
of that program. Rules for loading tables and arrays at com- 
pile time are as follows: 


1. The table or array records must follow the RPG II 
source program. 


2. Arecord with **p (blank) in positions 1-3 must 
appear before each table or array entered. (Any 
record with these characters in positions 1-3 will 
be treated as a delimiter, so do not use these char- 
acters as the first three characters on a data record.) 


3.  /* record must appear at the end of the last compile- 
time table or array. 


4. The tables and arrays must be loaded in the same 
order as described on the Extension Sheet. 


5. | Acompilation time array must have entries in columns 
33-35 of the Extension Sheet and must not have en- 
tries in columns 11-18 of the Extension Sheet. 


6. The tables and arrays must not be packed or binary. 


Figure 56 shows the placement of compile time tables and 
arrays in relation to RPG II source specifications. 


Pre-execution Time 


Pre-execution time tables and arrays are not part of your 
source program. They are used by the object program like 
any other data file. 


Rules for loading tables and arrays at pre-execution time are 
as follows: 


1. The table or array must be loaded before any other 
processing is done. 


2. A/* record must follow every pre-execution time 
table or array. 


Alternate Collating — s 
( Sequence Specifications 


ptm 


Source Deck 





‘ = Blank 


<=—-——-= Optional 


Figure 56. Placement of Compile-Time Tables in Relation to RPG II Source Specifications 
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3. If two or more tables or arrays are loaded, they must If an execution time array is to be read in packed or binary 
be loaded in the same order as described on the an t, an a should be given in column 43 of the Input 
Extension Sheet. Sheet. In this case, the From and To columns on the Input 


Sheet should define the positions the array occupies in the 


4. If errors are encountered during loading, additional record in the packed or binary format. The unpacked 


information about the error will be displayed on the decimal length of each array element is defined on the 
printer/key board if it has been defined as the log Extension Sheet. An execution time array must not have an 
device. entry in columns 11-26, 33-35, 43, and 46-57 on the 


Extension Sheet. 
5. A pre-execution time array must have entries in col- 


umns 11-18 and 33-35, and may have entries in 43 


and 55 if appropriate. Array Information in One Record 


Execution Time If all of the array information is in one record, it can occupy 
consecutive positions in the record or be scattered through- 
If you are loading an array from information in input out the record. 


records (execution time array), you must describe that 


. ie ; ae ‘ If the arrav elements are consecuti i 
information in your input specifications. How the entries ante “aSeienes at cutive on the input record, 


are made depends on whether the array information is con- they may be loaded with a single input specification. Figure 
tained in one or more than one record. Any type of array 57 shows an array, INPARR, of six elements (twelve posi- 
(compile time, pre-execution time, execution time) can be tions each) being loaded from a single record from the file 
described on the input specifications. ARRFILE. 

Execution time arrays are not checked for sequence, but If the array elements are scattered throughout the record, 
column 45 (sequence) must contain an entry if high or low they may be defined and loaded one at a time, one to a 
LOKUP is used. 
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Figure 57. Defining an Execution Time Array with Consecutive Elements 
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Figure 58. Defining an Execution Time Array with Scattered Elements 









































specification line. In Figure 58, an array, ARRX, of six 52 This column can be left blank. Ifa 
elements with 12 positions each, is loaded from a single decimal position entry is made, it must 
record from file ARRFILE; a blank column appears be- be the same as that specified on the 
tween each two elements. Extension Sheet. 
Following are the input specifications required for loading 53-58 The name of the array or the name of a 
an array from a single input record: single element (array name with index). 
This array name must be the same name 
Column Entry as that used on the Extension Sheet. 
6 I 59-62 Blank 
7-42 Blank 63-64 Field record relation indicator. See 
Columns 63-64 in Chapter 7 for infor- 
43 P (packed), B (binary), or blank. mation on this entry. 
44-47 Field location of either an entire array 65-70 Blank 
and (consecutive elements) or individual field 
48-51 locations of single elements of the array. 71-74 Sterling field. See Sterling in Appendix 


D for information on this entry. 
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Array information in More Than One Record 


If the array information is in two or more records, there 
are many methods that may be used to introduce the array 
to the system. The method you use is primarily based on 
the size of the array and whether the array information is 
all together in the input records. Figure 59 shows the 
array that could result by loading array information from 
certain input records. Each record identified by a 1 or 3 in 
column 1 contains twelve items of array information. 
Records identified by a 2 in column 1 do not contain array 
information, although they appear in the same input file. 
Examples of loading and storing array information are 
found in Examples of Using Arrays in this chapter. 


Keep in mind that the RPG II program processes one record 
at a time. You cannot process the entire array until all of 
the records containing the array information have been read 
and the information moved into the array fields. It may, 
therefore, be necessary to suppress calculation and output 
operations until the entire array has been read into the sys- 
tem. 


Records From input File 


Searching Tables and Arrays 


Tables and arrays can be searched using the LOKUP opera- 
tion code. LOKUP is described under Operation Codes at 
the end of the column descriptions in Chapter 8. 


Using Arrays 


Arrays can be used in input, output, or calculation specifi- 
cations (see Examples). The elements in an array can be 
referenced individually, or the array can be referenced as a 
whole. Individual elements are referenced by an array 
name plus an index. The array name alone references the 
entire array. 


Array Name and Index 


The array name must begin in column 27 or column 46 of 
the Extension Sheet and must be a valid RPG II name. 
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Figure 59. Loading an Array from Input Records 
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The length of the array name depends on how the array is 
being used. The array name can be from one to six char- 
acters long. The array name by itself is used only when 
referencing the entire array. 


If individual elements of the array are to be referenced, the 
array name will require an index. An index may bea 
numeric field with zero decimal positions or a literal. The 
array name and index must be separated by a comma. The 
array name with comma and index entry is limited to six 
positions (input, output specifications, or Result Field of 
calculation specifications) or ten positions (Factor 1 or 
Factor 2 of calculation specifications). The index must not 
be zero, negative, or greater than the number of elements 
in the array. 


Some examples of array names with and without indexes 
are as follows: 


Valid Explanation 

ARAYO1 

B 

AR,1 The first element of array AR. 

X,YY2 Where YY2 is the name of a numeric 
field with zero decimal positions. 

Invalid 

BALANCE _ Array name has more than six characters. 

6TOTAL First character not alphabetic. 

TOTAL- Name contains special character. 

CR TOT Name contains blank. 

Al, Al Array is used as index. 

BAL,XX1 Name including comma has more than 


six characters. This name is valid for 
Factor 1 and Factor 2 of the calculation 
specifications only. 


Referencing an Array in Calculations 


You can reference an entire array or individual elements in 
an array using calculation specifications. Process individual 
elements like normal fields. Remember, if an array field is 
to be used as a result field, the array name with comma and 
index cannot exceed six characters, 


To reference an entire array use the array name without an 
index. The following operations may be used with an array 
name: ADD, Z-ADD, SUB, Z-SUB, MULT, DIV, SQRT, 
MOVE, MOVEL, MLLZO, MLHZO, MHLZO, MHHZO, 
DEBUG, XFOOT, and LOKUP. Except when XFOOT and 
LOKUP operations are used, Factor 1 and Factor 2 cannot 
be an array name unless the Result Field is also an array 
name. 


There are also several operations that can be used with an 
array element only (not the array name alone). These oper- 
ations are: COMP, DSPLY, TESTZ, TESTB, BITON, and 
BITOF. 


The following rules apply when using array names without 
an index in calculations: 


1. | When the factors and the result field all are arrays 
with the same number of elements, the operation is 
performed using the first element from every array, 
then the second element from every array, etc., until 
all elements in the arrays are processed. If the arrays 
do not have the same number of the entries, the oper- 
ation ends when the last element of the array with 
the fewest elements has been processed. 


2. When one of the factors is a field or constant and 
the other is an array, and the result field is an array, 
the operation is performed once for every element in 
the shorter array. The same field or constant is used 
in all of the operations. 


3. Resulting indicators (columns 54-59) cannot be used 
due to multiple operations being performed. Excep- 
tions are XFOOT and LOKUP which allow resulting 
indicators. 
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Modifying the Contents of Tables and Arrays 


Tables and arrays can be temporarily changed during execu- 
tion of a job. This is done when the table or array name is 
used as a result field in an arithmetic or move operation. 
This causes the appropriate entry in the table or array to be 
modified for the duration of the job. The next time the job 
is executed, however, the table or array will have the 
original entries. Temporary changes can be permanent if 
the modified table or array entries are written or punched 
out and the new records, instead of the original ones, are 
used in the table or array input file or the original data is 
modified. 


Figure 60 shows specifications for modifying the contents 
of corresponding tables TABFIL and TABLIT. 


Adding Entries to a Short Table or Array 


Entries can be added to short tables and arrays before or 
during execution of the job. The simplest way to add 
entries to a table or array is to write additional entries on 
the input records before program execution. However, 
entries can also be added during execution of a program. 
The entries added can be created by calculation operations 
or read from an input record. 


41 shows 


numeric tables. 


Figure how entries are added to two related, 


Table and Array Output 


Tables and arrays can be written out one of two ways 
depending on whether or not you want to modify the table 
or array output. If you specify the name of the output file 
to be used in columns 19-26 of the Extension Sheet, the 
RPG II program will write out the entire table or array with 
all of its modifications. Using this method the RPG II 
program will write out all types of tables and arrays except 
execution time arrays. 


If you wish to modify the output of a table or array, you 
must describe the table or array on the Output—Format 
Sheet along with any normai fieids for the output record. 
You must also specify the name of the table or array in 
columns 32-37 of the Output—Format Sheet. Columns 
40-43 must contain the record position where the last field 
of the table or array is to end. 


If an output record is to contain only certain fields from 

a table or array, describe the fields in the same way as you 
do normal fields, using either a table name or an array name 
with an index. 
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All elements in TABFIL which contain 25 are to be changed to 30. 
The corresponding elements in TABLIT are to be changed to 500. 

The search word is the constant 25. On each program cycle, when 4 
a match is found in the table TABFIL, the entry from TABFIL and 

its corresponding entry in TABLIT become available for change. 
The number 500 is then moved into the TABLIT element and the 
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Figure 60. Changing Table Data During Calculations 
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The LOKUP operation is conditioned by indicator 01. Indicator 01 
is on when a record is read containing information in the fields; NEWA | 
and NEWB. These fields are to be added to the short tables TABA 
and TABB respectively. To get the entry in the correct place in the 
table, a search is made to find the first empty entry. Unfilled entries 
are filled with zeros. Thus the search word used is 000. When the 
first 000 entry is found (indicator 35 turns on), NEWA and NEWB 
become part of the related tables TABA and TABB. These entries 
are temporary unless they are written (or punched ) on table records. 
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Figure 61. Adding Table Entries to a Short Table 


Editing Entire Arrays TABRAT is the related table containing employee salary 
rates. After an employee’s rate has been found, the rate is 
When editing an entire array, any editing you specify multiplied by the number of hours worked. The result is 
applies equally to all fields in the array. If you require the amount earned. 
different editing for various elements, reference them 
individually. 
TABNUM TABRAT 

When you specify an edit code for an entire array (column 407 
38), note that two blanks are automatically inserted to the 
left of every field in the array. When you specify an edit 593 
word instead, the blanks are not inserted. The edit word 
must specify all the blanks you want inserted. 369 

1379 


Example of Using Tables 





A payroll job requires two related tables (Figure 62). 
TABNUNM is the search table containing employee numbers. Figure 62. Tables Used in Payroll Job 
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The tabie entries are organized in alternating format on the 
input records. On line 01 of the Extension Sheet (Figure 
63), the table searched is called TABNUM. There are eight 
entries in each input record and 500 entries in the table. 
Each table entry is five positions long and contains no deci- 
mal positions. The table is in ascending sequence. The 


related table is called TABRAT. Each entry is four posi- 


tions long and contains two decimal positions. 


Line 01 of the Calculation Sheet causes the employee num- 
ber (EMPNUM) to be used as the search word for the data 
contained in TABNUM (the search table). Indicator 03 is 


Line 02 of the Calculation Sheet is performed when indica- 
tor 03 ison. The rate for the employee, taken from the 
related table TABRAT, is multiplied by the number of hours 
worked (HRSWKD). The result is stored in the field 
EARNS, which is five positions long with two decimal posi- 
tions. The result is half-adjusted. 


When the search word does not find an equal entry in 


TABNUM (indicator 03 is not on), line 03 is performed. 


table. 


turned on when the program finds an entry in TABNUM 


that is equal to the search word. 


The literal 000.00 is then moved to the field EARNS, indi- 
cating that the employee does not have an entry in the 
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Figure 63. Specifications for Payroll Job (Part 1 of 2) 
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Figure 63. Specifications for Payroll Job (Part 2 of 2) 
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- Examples of Using Arrays 


Example 1: Figure 64 illustrates a method of loading an 
array using fields in input records as indexes. The example 
shows a 12-element array with element length five. The 
array can be made larger without additional input specifica- 
tions by assigning different values to the [1-110 fields on 
each input record type 03 and to the I1 and I2 fields on 
each 04 record type. Succeeding type-03 records then load 
ten additional elements into array AR; each type-04 record 
loads two additional elements. 


Blanks and other fields can appear on the input records 
since the array elements and their index are identified by 
From and To entries. 






Date : 
Punching Graphic 
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This method requires a minimum of coding and no calcuia- 
tions to set up the array. Extra work, however, is required 
to set up the indexing scheme for the input records. 


Example 2: In Figure 65 we see a method whereby eighteen 
5-position elements of array AR1 are loaded with only two 
specification lines. On succeeding lines of the Input Sheet 
other elements of AR1 are loaded one after another until 
the array is full. Each additional element is coded ona 
separate line. Each new record requires a separate means of 
identification. For example, if another 03 record followed 
the first, the fields on the second record would overlay the 
fields read in from the first record. 


The method illustrated in Example 2 works well for small 
arrays. 
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Example 3: The specifications in Figure 66 perform the and L2D. Similarly, at an L2 control break the second 


function of tabulating three levels of totals. The fields level totals are added to third level totals L3A, L3B, L3C, 
FIELDA, FIELDB, FIELDC, and FIELDD are added, as and L3D. In addition, as control breaks occur, L1, L2, and 
they are read from input records, to the first level totals L3 total output is performed; total fields are zeros after 


LIA, LIB, LIC, and LID. These first level totals are added they are written on the output device. 
at the time of an LI! control break to totals L2A, L2B, L2C, 
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Figure 66. Calculating Totals Without Arrays 
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Figure 67 shows the same functions being performed using ation Sheet of Figure 66. Similarly, the output specifica- 


arrays. Note the reduction in coding required to specify the tions are reduced from 15 lines to 6. (Notice, however, that 
functions, For example, line 5 of the Calculation Sheet per- _ the method using array results in only two positions between 
forms the same function as lines 5 through 8 of the Calcul- array elements.) 
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Figure 67. Calculating Totals 


Example 4: This example illustrates the use of three arrays _—‘In the first output record, the location and contents of the 
defined as follows. Refer to Figure 68. arrays are (4 represents a blank): 


Array Name Number of Fields Field Length 


Array Location Contents 
ARA 4 5 
ARA 85-89 12345 
ARB 5 10 (first field) 
ARC ° 4 ARC 37-84 61.2366645.67BB 
: 89.01666 23.4566 
Array ARA is contained in the input records corresponding 67.8966b87.65$CR 


to indicator 01, ARB in the records corresponding to 02, 

and ARC in both types of records. Array ARC and the first 
field of array ARA are to be included together in an output 
record as are arrays ARC and a field (identified by field X1) 
of array ARB. Every field in array ARC is edited according 


For the second output record assume that the contents of 
field X1 is 4. The locations and contents of the arrays are: 


Bese hee ce ar ; ipa Array Location Contents 
to the edit word O06.5H&CR. (where b represents a biank). 
; ; ARB 91-100 JIMBKNOTSB 
Assume that the contents of the arrays in the first two input (fourth 
recor ds are: field) 
Recs? Any dean Contents ARC 37-84 The same as in the first record. 
1 ARA 12345678901 234567890 
ARC 012345678901 23456789876N 
(note that N equals minus 5) 
2 ARB JOHNb’DOEBBJOEBSMITHBLEEB 
MARXUBJIMBKNOTSUTIMBTYLERB 
ARC (The same as in record 1) 
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Example 5: Figure 69 shows a method of writing short 
arrays on the output device. The contents of one element 
of a 22-element array, AR2, is written to the output file 
ARFILE each time the specification in line 3 of the Calcu- 
lation Sheet is performed. 


Example 6: Figure 70 shows a method of writing a large 
array on the output device. The number of fields printed 
on a line depends on the value assigned to the compare on 
line 10 of the Calculation Sheet. If an edit code is used, 
each array field will be separated by two spaces. These 
spaces must be considered when computing the end posi- 
tion in the output specifications. 
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Figure 70. Printing More Than One Array Element Per Line 
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Line counter specifications should be used for each printer 
file (except the console printer) in your program. If the 
dual carriage feature is used, two specification lines should 
be completed. Line counter specifications indicate at what 
line overflow occurs and the length of the form used in a 
printer. Both of these entries must be specified on the Line 
Counter Sheet (Figure 71). If no line counter specifications 
exist, the forms length used will be either: 


1. The forms length specified on the // FORMS card, or 


2. The forms length specified at system generation time 
(if no // FORMS card was specified). 


In either case, the overflow line is assumed to be six lines 
less than the specified forms length. 


Chapter 6. Line Counter Specifications 


COLUMNS 1-2 (PAGE) 


See Chapter 2. 


COLUMNS 3-5 (LINE) 


See Chapter 2. 
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COLUMN 6 (FORM TYPE) 


An JZ must appear in column 6, 


COLUMNS 7-14 (FILENAME) 


Use columns 7-14 to identify the output file to be written 
on the printer. Filename must begin in column 7. 


Any filename entered in these columns must be previously 
defined on the File Description Sheet. The output device 


assigned to the file on the File Description Sheet must be 
a printer. 


COLUMNS 15-17 (LINE NUMBER—NUMBER OF LINES 
PER PAGE) 


Entry Explanation 
1-112 Number of printing lines available. 
Columns 15-17 specify the exact number of lines available 


on the form or page to be used. The entry must end in 
column 17. Leading zeros may be omitted. 


COLUMNS 20-22 (LINE NUMBER—OVERFLOW LINE) 
Entry Explanation 


FL Form length 


indicates that the preceding entry (columns 15-17) is the 
form length. 


Columns 18-19 must contain the entry FL. This entry 


COLUMNS 20-22 (LINE NUMBER) 
Entry Explanation 


1-112 A line number from 1-112 is the overflow 
line. 
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Columns 20-22 specify the line number that is the overflow 
line. The entry must end in column 22, Leading zeros may 
be omitted. 


When the destination line of a space, skip, or print opera- 
tion is a line beyond the overflow line you have specified 
(but not beyond the form length), the overflow indicator 
turns on to indicate that the end of the page is near. When 
the overflow indicator is on, the following occur before 
forms advance to the next page: 


1. Detail lines are printed (if this part of the program 
cycle has not already been completed). 


2. Total lines are printed. 


3. ‘Total lines conditioned by the overflow indicator 
are printed. 


Because all these lines are printed on the page after the 
overflow line, you have to specify the overflow line high 
enough on the page to allow all these lines to print. You 
know the data you will be printing out after the overflow 
line is reached. Thus, you can judge what line should be 


the overflow line on this basis. See Columns 33-34, 
Chapter 4 for a discussion of overflow. 


COLUMNS 23-24 (OVERFLOW LINE) 
Entry Explanation 
OL Overflow line 


Columns 23-24 must contain the entry OL. This entry 
indicates that the preceding entry (columns 20-22) is the 


overflauw lina 
Wwe ssw VY Litblwve 


COLUMNS 25-74 


Columns 25-74 are not used. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 


Input specifications describe the data files, records, and 
fields of the records to be used by your program. These 
specifications may be divided into two categories: 


1. File and record type identification (columns 7-42). 
These specifications describe the input record and its 
relationship to other records in the file. 


2. Field description entries (columns 43-74). These 
specifications describe the fields in the records. 


The specifications are written on the Input Sheet (Figure 
72). The field description entries must start at least one 
line lower than file and record type identification entries. 
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Chapter 7. Input Specifications 


COLUMNS 1-2 (PAGE) 


See Chapter 2, 


COLUMNS 3-5 (LINE) 


See Chapter 2. 


COLUMN 6 (FORM TYPE) 


An TJ must appear in column 6. 
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COLUMNS 7-14 (FILENAME) 


Columns 7-14 identify the input, update, or combined file 
you are describing. The filename must begin in column 7 
and conform to RPG II naming specifications, Use the 
same filename given in the file description specifications. 
The name of every input, update, or combined file (except 
table input files and record address files) described in 

the file description specifications must be entered at 

least once on this sheet. The filename must appear on the 
first line that contains information concerning the records 
in that file. If the filename is omitted, the last filename 
entered is assumed to be the file being described. All 
records and fields for one file must be completely 
described before another file can be described. 


COLUMNS 15-16 (SEQUENCE) 
Entry Explanation 


Any two Nocheck for special sequence. 
alphabetic 
characters 


Any two- Check for special sequence. 
digit 
number 


Columns 15-16 may contain a numeric entry which assigns 
a special sequence to different record types in a file. 


If different types of records do not need to be in any 

special order, use two alphabetic characters (see Examples, 
Example 1). Alphabetic characters must be used for chained 
files and look ahead records. Within one file record types 
having alphabetic and numeric sequence entries can be 
specified for the same file, but all alphabetic entries must 


be hefore the numeric entries 


Wewaw Vebwy saessswasy Vss bases 


Use columns 15-16 to assign sequence numbers to different 
types of records within a file. Your job may require that 
one record type (identified by a record identification code) 
must appear before another record type within a sequenced 
group. For instance, you may want a name record before 
an address record. You must provide a record identification 
code for each type of record and then number the record 
types in the order that they should appear. The program 
will check this order as the records are read. The first 
record type must have the lowest sequence number (01), 
the next record type should be given a higher number, etc. 
(See Examples, Example 2.) 
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Numeric sequence numbers only ensure that ali records of 
record type 01 precede all records of record type 02, etc., 
in any sequenced group. The sequence numbers do not 
ensure that records within a record type are in any certain 
order. Numeric sequence numbers have no relationship 
with control levels, nor do they provide for sequence 
checking of data in fields of a record (see Examples, 
Example 3). 


Gaps in sequence numbers are allowed, but the numbers 
used must be kept in ascending order. The first sequence 
number must be 01. 


A record type out of sequence causes the program to stop. 
The program may be restarted by pressing the START key 
on the processing unit. The record that causes the halt is 
bypassed and the next record is read from the same file. 
Records in an AND or OR line cannot have a sequence 
entry in these columns, The entry in these columns from 
the previous line also applies to the card in the OR line. 
See Columns 53-58 in this chapter for information on OR 
relationships. 


Examples 


Example 1: Figure 73, insert A, shows a file having two 
types of records (part number and item number) which 
may appear in any order. Since they are not to be checked 
for sequencing, they are assigned two alphabetic characters 
(AA and BC, respectively) instead of numbers. See Figure 
71, insert B for the coding of this example. 


Example 2: Figure 74, insert A shows the order of four 
different types of records within a file. The records are 
arranged in groups according to some control field. The 
name record is first in each group and is assigned sequence 
number 01. Street record is next and is assigned 02. 
City/state record is 03. Item number is last and is assigned 
07. See Figure 74, insert B for the coding of this example. 
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Figure 73. Unsequenced Card Types in a File 
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Figure 74. Sequence Checking of Record Types 
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record types. Each group is in proper sequence according 
to the assigned sequence numbers (01, 02, 03, and 07). 
Notice, however, that the city/state record for group B is 
in group C and vice versa. The sequence entry which you 
specify in columns 15-16 will not catch this mistake since 
the sequence entry does not cause the data on the record 
to be checked. 


COLUMN 17 (NUMBER) 


Entry Explanation 

Blank Record types are not being sequence 
checked (columns 15-16 have alphabetic 
entries). 

1 Only one record of this type is present in 
the sequenced group. 

N One or more records of this type may be 


present in the sequenced group. 







C Item Number (07) 


B City/State (03) 
These two cards, even though in the proper 
sequence, are in the wrong data group. 

A sequence entry in columns 15-16 does 
not check for this type of error. 
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Figure 75. Correct Card Sequence (Incorrect Data in Each Group) 
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Use column 17 only if sequence checking is to be done 
(columns 15-16 contain numbers). Often, when sequence 
checking, you may have more than one record of a particu- 
lar type within the sequenced group (see Example). Thus 
you must indicate by an entry in column 17 that a certain 
number of records of one type may be found in the 
sequence group. 


AND or OR lines (columns 14-16 have the letters AND or 
OR) should not have an entry in this column. It is assumed 
that the number of records of this type to be found in the 
sequenced group is the same as the number entered in 
column 17 of the previous line. (See Columns 21-41 in this 
chapter for more information on AND lines; see Columns 
53-58 for more information on OR lines.) 


Example 


Figure 76 shows a sequenced record file in which there is 
more than one record per type in a group. The record type 
called item number appears three times. 


There is probably no reason for a name, street, or city/state 
record to appear more than once in one group. A / is 
entered in column 17 to indicate that these record types 
appear only once in each group. However, since one person 
may have purchased more than one item, there may be two 
or more item number records per group; an AN is entered in 
column 17 for this field. See Figure 74, insert B for the 
coding of this example. 










B Item Number (07) 
B Item Number (07) 
B Item Number (07) 
B City/State (03) 


B Street (02) 


B Name (01) 


f 51612 


Figure 76. Sequenced Card File (More Than One 


Record Per Type in a Group) 


COLUMN 18 (OPTION) 


Entry Explanation 

Blank Record type must be present (if sequence 
checking is specified). 

O Option. Record type may or may not be 
present. 


Column 18 is used when record types are being sequence 
checked, A blank entry specifies that a record of this 
record type must be present in each sequenced group. 


The O entry specifies that a record of this record type may 
or may not be present in each sequenced group (see 
Example). If all record types are optional, no sequence 
errors will be found. 


AND or OR lines should not have an entry in this column. 
The entry in this column on the previous line also applies to 
this line. (See Columns 21-41 in this chapter for more in- 
formation on AND lines; see Columns 53-58 for more 
information on OR lines.) 


Example 


Figure 77 shows a sequenced card file in which a card type 
may be optional. For instance, the street or item number 
records may not be included. Since it is not always neces- 
sary to have a street address, this record is optional. Sup- 
pose this job required a list of all items purchased during 
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Figure 77. Sequenced Card File (Optional Record Types) 





one month by the individual named in the name record. It 
is possible that a person might not buy anything during the 
month. In this case, there would be no item record; there- 
fore, the item record would also be optional. (See Figure 


72, insert B for a coding example.) 


COLUMNS 19-20 (RECORD IDENTIFYING INDICATOR, 


*#) i 


Entry Explanation 


01-99 Record identifying indicator (see general 
discussion under Columns 54-59, Chapter 8). 
L1-L9 Control level indicator, used for a record 
identifying indicator when a record type 
rather than a control field signals the start 
of a new control group (see general discus- 
sion under Columns 59-60, Chapter 7). 


LR Last record indicator (see Columns 7-8, 
Chapter 8). 

H1-H9 Halt indicator, used for a record identifying 

indicator when checking for a record type 

that causes an error condition (see general 

discussion under Columns 54-59, Chapter 8). 


= Look-ahead fields. 
TR Spread cards. 

Columns 19-20 may be used for three purposes: 
1. Specifying record identifying indicators. 
2. Indicating look-ahead fields. 


3. To specify the trailer portion of spread cards. 


RECORD IDENTIFYING INDICATORS 


Use columns 19-20 to assign an indicator to each record 
type. When you have different types of records within a 
file, you often want to do different operations for each 
record type. Therefore, you must have some way of know- 
ing which type of record has just been read. To do this, 
you assign different record identifying indicators to each 
record type. Whenever a record type is selected to be 
processed next, its corresponding identifying indicator is 
turned on. (All other record identifying indicators are off 


| at this time, unless chained files or demand files are being 
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processed, when several may be on at the same time.) This 
indicator signals throughout the rest of the program cycle 
which record type has just been selected. A record 
identifying indicator need not be assigned if you are not 
concerned about different record types. 


Because the record identifying indicator is on for the rest of 
the program cycle, you may use it to condition calculation 
operations (see Columns 9-17 in Chapter 8) and output 
operations (see Columns 23-31 in Chapter 9). 


Record identifying indicators do not have to be assigned 
in any order. 


When a control level indicator used as a record identifying 
indicator turns on to reflect the type of record read, only 
that one control level indicator turns on. All lower level 
indicators remain off. 


You may assign the same indicator to two or more different 
record types provided you want the same operations per- 
formed on these types. This can be done by using the OR 
relationship (see Columns 21-41 in this chapter). 


No record identifying indicator may be specified in the 
AND line of an AND relationship. Record identifying indi- 
cators for OR lines may be specified for every record type 
in the OR relationship that requires special processing. 

(See Columns 21-41 in this chapter for information on AND 
lines. See Columns 53-58 in this chapter for information on 
OR lines.) 


LOOK AHEAD FIELDS 


Use asterisks in columns 19-20 to indicate that fields named 
in columns 53-58 on the following specifications lines are 
look-ahead fields. A look-ahead field allows you to look at 
information in a field on the next record that is available 
for processing in any input file. In update and combined 
files, the look-ahead field is for the record currently in 
process, 


Two of the uses for look-ahead fields are: 


1. Determining when the last card of a control group is 
being processed. 


2. Extending the RPG II matching record capability. 
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Look-ahead fields can be used with input, update, and com- 
bined files whether or not they are processed by a record 
address file. They cannot be specified for chained or 
demand files or files that contain header/trailer records. 
You can describe one set of look-ahead fields per file; 

the description applies to all records in the file, regardless 
of their type. (The specifications for describing the fields 
are given later.) Look-ahead fields cannot be altered in 

the program (cannot be used as a result field or blanked 
after). 


If you wish to use information both before and after the 
record is selected for processing, you must describe the 
field twice; once as a look-ahead field and once as a normal 
field. 


For combined and update files, the look-ahead fields apply 
to the next record in the file only if the current record was 
not read from that file. Therefore, when you are reading 
from only one file and the file is a combined or update file, 
look-ahead fields always apply to the current record. 


Figure 78 shows processing three records from two input 
files, one primary and one secondary. The first record 

from each file is read (see Figure 78, insert A). In Figure 

78, insert B, record P1 is selected for processing; in Figure 
78, insert C, record P2; and in Figure 78, insert D, record S1. 
The records available for look-ahead during the processing 
of these records are: 


Record __ Records 
Processed Available 
Pl P2 and Sl 
PQ P3 and S1 
S1 P3 and S2 


In general, when the record being processed is from an 
input file, the next record in the input file is available as 
are the records which were read but not selected from the 
other files. 
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Figure 78. Available Records: Two Input Files (Part 1 of 2) 
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Figure 78. Available Records: Two Input Files (Part 2 of 2) 
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Figure 79 shows the same files as Figure 78 with one 
exception: file A is an update file. The records available 
for look-ahead during the processing of the three records 
are: 


Records Records 
Processed Available 


Ul Ul and S1 
U2 U2andS1 
Sl U3 and S2 


Update File 


© 


Read first 
record from 
update file. 


r-- 


In general, when the record being processed is from a com- 
bined or update file, only the records which were read, but 
not selected, from the other files are available for look- 
ahead. The next record from the combined or update file 
is not read until after the current record has been processed. 
Therefore, the next record from the combined or update 
file is not available for look-ahead. 


After the last record from a file has been processed, every 
look-ahead field for the file is automatically filled with 9’s. 
For example, a field three record-positions long contains 
999. The 9’s remain in the fields until the job ends. Note 
also that blank after (B in column 39 of the Output-Format 
Sheet) cannot be used with look-ahead fields. 
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Figure 79. Available Records: One Input File, One Update File (Part 1 of 3) 
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Figure 79. Available Records: One Input File, One Update File (Part 2 of 3) 
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Figure 79. Available Records: One Input File, One Update File (Part 3 of 3) 
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Specifications Figure 80 shows a job which reads records from two files. 
The primary file is named PRIMARY; the secondary file, 
You can describe one set of look-ahead fields per file. The SECONDRY. Ifa record from the primary file matches 


description applies to all records in the file, regardless of one from the secondary file, the information in positions 
their type. Look-ahead fields must not be described for one through ten of the secondary file record is placed in 
demand or chained files, and they must not be used as array —_ positions 31-40 of the primary file record. When there is 
fields. To describe a set of look-ahead fields, place ** in no match, a 6 is placed in position 1 of the primary file 
columns 19-20 of a line following the normal field descrip- record. The 6 will indicate an unmatched record in the 
tions for the file. The ** line can follow only a file or primary file. 


record type which has an alphabetic sequence entry. Leave 
columns 17-18 and 21-74 blank. Place any alphabetic char- Because the primary file record is processed first when it 


acters under Sequence in columns 15-16. Describe the matches a secondary file record, the information from the 
look-ahead fields on separate lines following the ** line secondary file record has to be described as a look-ahead 
(as in Figure 80, Part 2, insert B). field, 
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SPREAD CARDS 


Certain jobs require that you keep data files containing a 
header card and a separate card for each item or transaction 
being recorded. Thus, for a billing job you may have a data 
file, for each customer, with the following cards. 
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With the spread card capability of RPG II, you can store 
more data on each card. You do not need to use a header 
card and a separate card for each item or transaction. You 
can specify a spread card with a header portion followed by 
trailer portions which contain the item or transaction data. 
A trailer portion can consist of as many fields as are nec- 
essary ; however, the same fields must appear in each trailer 


portion. A trailer portion must not be split between two 


records. 


Thus, a data file for a billing job such as the one shown 
previously may have the following spread cards. 
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Spread cards containing header and trailer portions. 
CUSTOMER NUMBER is the header portion; each 
set of ITEM# and OTY fields is a trailer portion. 
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Specifications 


The only time you can specify spread cards is when the 
input card files are designated as primary or secondary. 
No look ahead fields can be described for spread cards. 
You can describe a maximum of 225 valid TR lines (TR 
in columns 19-20) in a program. 


Specify spread cards as follows: 


1. 


Describe the fields in the header portion of the 

spread card on separate specification lines immedi- 
ately following the proper file and record type 
entries. The header is considered to be ali positions up 
to the first trailer in the record. Any record identifi- 
cation codes specified for the header/trailer record 
must be contained within the header portion of 


the record. If a numeric entry is made in columns 
15-16 of the specifications line containing the file 
and record type entries, an N must be entered in 


column 17 of the same line. 


Describe each field in the header portion as you 
would any normal RPG II field. You are required to 
describe only those fields in the header portion that 


are used later in the program. If no field in the head- 
er portion is used, you can omit the header field spec- 
ification and specify the TR line immediately follow- 


ing the file and record type entries. 
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to 


Enter TR in columns 19-20 of a specification line to 
indicate that the fields in the first trailer portion are 
described in the specification lines that follow. Leave 
columns 7-18 and 21-74 of the TR line blank. 


Describe the fields in the first trailer portion on sep- 
arate lines immediately following the TR line. Leave 
columns 7-43, 59-62, and 71-74 of the trailer specifi- 
cations blank. Describe the fields in the first trailer 
portion as you would any normal RPG II field. 


You are required to describe only those fields in the 
first trailer portion that are used later in the program. 
Be sure, however, that you describe the fields that 
indicate the start and end position of the first trailer 
portion. 


Since all trailer portions must be the same length 
and must include the same fields, you need only de- 
scribe the first one. The compiler uses this trailer 
specification to calculate how many trailer portions 
the record contains and to determine the start and 
end position of each. 


Processing Spread Cards 


The following considerations apply when processing 
spread cards: 


1. 


One trailer portion from a spread card is processed 
per program cycle. The system treats that trailer 


portion, along with its associated header portion, as 
one logical record. 


The next spread card is read when: 


@ the system has processed all trailer portions in 
the current record. 


@ the system encounters a trailer portion in the card 
being processed which is entirely blank. 


Example: The following input specifications are needed to 
describe a file (CARDIN) containing spread cards. Each 
card in the file contains a header portion in positions 3-8 
which is made up of the customer number field (CUSTNO). 
The header is followed by a number of trailer portions. 
Each trailer is made up of an item number field (ITMNO), 

a field indicating the size of the item (SIZE), and a quantity 
field (QTY). 
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COLUMNS 21-41 (RECORD IDENTIFICATION CODES) 


Use columns 21-41 to describe the information that identi- 
fies a record type. 


When you have many record types in one file, you often 
want to perform different operations for each type. There- 
fore, you must identify each type by giving each a special 
code consisting of a combination of characters in certain 
positions in the record. This code must be described in 
columns 21-41 so that when a record is read the record 
type can be determined by these specifications. The first 
record identifying character should be identified in columns 
21-27, the second in columns 28-34, and so forth. 


When more than one record type is used in a file, only one 
record type will be selected for processing in each cycle. 
The record identifying indicator for that record type will be 
turned on at the time of selection. If a data record meets 
the requirements of more than one of the record types, it 
will belong to the first record type for which it qualifies. 


When all records are to be processed alike regardless of their 


type, or if there is only one type, leave columns 21-41 blank. 


Position 
Entry Explanation 
Blank No record identification code is needed. 
1-4096 Record position of the record identification 


code. 


Use columns 21-41, 28-31, and 35-38 to give the location in 
the record of every character in the identification code. 
Entries in these columns must end in columns 24, 31, and 
38 respectively. Leading zeros can be omitted. 


Not (N) 
Entry Explanation 
Blank Record ID code is present in the specified 
column. 
N Record ID code is not present in the 


specified column. 


Use columns 25, 32, and 39 to indicate that a certain 
character should not be present in the specified position. 
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c/Z/D 
Entry Explanation 
C Entire character. 
Z Zone portion of character. 
D Digit portion of character. 


Use columns 26, 33, and 40 to indicate what portion of a 
character is used as part of the record identifying code (see 
Character Structure following Examples), Only the zone 
portion, only the digit portion, or both portions (the whole 
character) may be used (see Examples, Example 3, and 
Example 4). When establishing record identifying codes, 
remember that many characters have either the same zone 
or the same digit portion. For a list of characters that have 
identical zone or digit portions see Appendix E, Table E-4. 


Character 


Use any alphabetic character, special character, or digit in 
columns 27, 34, and 41 to identify the character that was 
used in the record to serve as the code or part of the code. 


Note: If none of the identifying codes you have specified 
is found on a record, processing stops. You may continue, 
however, by pressing START on the processing unit. The 
record that caused the halt is not processed, and the next 
record in that file is read. 


AND Relationship 


A maximum of three identifying characters may be 
described in one specification line. Thus, if the identifica- 
tion code consists of more than three characters, an AND 
line must be used. This means that the first three identify- 
ing characters are described in the first line. The additional 
identifying characters are described in as many following 
lines as are needed. Write the word AND in columns 14-16 
to indicate an AND line (see Examples, Example 1). 


You may specify up to 20 AND or OR lines in any combin- 
ation to describe the record identifying code. The record 
must contain all the characters indicated as its record 
identification code before the record identifying indicator 
will turn on. 


OR Relationship 


A particular record type may be identified by two different 
codes. If this is the case, OR lines must be used to indicate 
that either one of the codes may be present to identify the 
record. Write the word OR in columns 14-15 to indicate 
an OR line (see Examples, Example 2), A maximum of 20 
AND or OR lines in any combination are allowed in any 
record identification line. 


Seven columns are set aside for the description of one char- 
acter in the record identification code. Each specification 
line contains three sets of seven columns: columns 21-27, 
28-34, and 35-41. Each set consists of 4 fields: Position, 
Not, C/Z/D, and Character. Coding is the same for all three 
sets. 
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Example 1: Figure 81, insert A shows a record identifica- 
tion code consisting of five characters. The first character 
is located in position 1, the other four record ID tests are 
made in positions 93, 94, 95, and 96. Since only three 
identifying characters may be described on one line, the 
word AND must be used on the next line to indicate that 
the last two characters of the code are part of the preceding 
record identification entries. 


Example 2: Figure 81, insert B shows the use of an OR 
line to describe record type identification codes. The 
record assigned resulting indicator 12 can be identified by 
two different codes. The record can be identified by a 
code consisting of a 5 in position 1 and a 6 in position 2 
or a code consisting of a 6 in position 1. 
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Example 3: In figure 81, insert A, the entry in column 32 
indicates that the digit 9 must not be present in position 93 
for the records in the file. 


Example 4: Figure 81, insert A shows that only the zone 
portion of the character T located in position 94 is part of 
the identifying code. In position 96 only the digit portion 
of the character F is part of the code. 


CHARACTER STRUCTURE 


Every alphabetic character, numeric character, or special 
character is represented by different combinations of 
punches in the 96-column card. Each character punched on 
the card is composed of two parts, a zone portion and a digit 


Bya aftar a character hae hean read into the 


nartinn n n 
RVULIL agiltul a Cnaracter fi@o UUUIE 1LaU ity LILY 


pVl tivil, 
machine, it is still composed of these two parts. Appendix 
E, Table E-2 shows grouping of characters by equal zones 
and equal digits. Refer to that table while you read the 
following paragraphs. 


A character is represented in the computer by eight mag- 
netic bits. Because the character is represented by six 
punch positions on a card, translation has to take place so 
that it can be represented by eight bits in storage. This is 
an automatic function. Asa result of it, however, the way 
characters are represented in the machine and the way they 
appear on the punched card are not always identical. Not 
all characters having a B zone punched in the card have 
identical zone structures in the machine. 


Whenever you use just the zone or just the digit portions 

of characters in specific functions such as sequencing, testing, 
or identifying records, you must keep in mind the exact 
structure of the characters when represented in the machine. 
For example, when you are identifying a record type on the 


hada nf tha ganna nnartinn nf charactar No vaw muict ramam 
Vado Va LALY CVILIY pv: LAVLE VL VEIGIGVLYUL a’, yyvyu ALLUOE LVL“ 


ber that several characters have the same zone structure as 
the letter D. If a card with the record identifying code of 
F is read, it is still considered to be aD type record because 
the zone of character F is the same as the zone of character 
D. 


Note: Characters with the same zone punch in the card do 
not necessarily have the same representation in the machine. 
For instance, character $ has the same zone punch in the 
card as character K. However, they do not have the same 
zone representation in the machine. 


All characters can be arranged in a certain order according 

to the way their zone and digit portions are represented in 
the machine. This means that if you are to sequence the 
characters, each character has a special position in relation 

to all others on the basis of its representation in the machine. 
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This special order or positioning is known as the collating 
sequence (see Column 26, Alternate Collating Sequence in 
Chapter 3). The characters can also be arranged in a special 
order on the basis of just the zone portion or just the digit 
portion. Each type of sequencing, whether according to 
zone, digit, or the entire character, results in a different 
arrangement of the characters. The standard sequence order 
of the characters, when both zone and digit portions are 
used to sequence, is shown in Appendix E, Table E-5. When 
using only the digit or only the zone portion of the charac- 
ter to sequence the characters, remember that often char- 
acters have the same zone or the same digit portion. Thus 
they each rightly belong in the same position. The only 
thing that then determines their position is the order in 
which they are read into the machine. 


Use Table E-4 in Appendix E to determine which characters 
have identical zone and digit portions. All characters in 
each group have either the same zone or the same digit por- 
tions (depending on the figure). The groups are arranged 
from low to high according to the collating sequence sup- 
ported by RPG I. 


Structure of Negative Numbers 


Negative numbers have a different character structure than 
positive numbers because negative numbers are formed by 
punching a minus sign over the number. Numbers 0-9 have 
only digit portions. However, a minus sign is a B zone 
punch. Thus when the zone punch (minus sign) and the 
digit punch (0-9) are put together, a different character is 
formed. Therefore, negative numbers are represented in 
the machine by the characters J-R. (When the B zone 
punch is combined with a zero, the character } is formed. 
} does not print using the standard 48-character set.) 


COLUMN 42 (STACKER SELECT) 


Entry Explanation 

Blank Cards automatically fall into a predeter- 
mined stacker. 

1-4 Stacker into which the card type is 


stacked. 


Column 42 is used to indicate that certain types of input 
cards must be stacked in a specific stacker. If you make no 
entry, ali cards wili go into a predetermined stacker (pri- 
mary hopper—stacker 1, secondary hopper—stacker 4). 
Only input file and combined file cards may be stacker 
selected in the input specifications. 


You may stacker select cards from the input file in input 
specifications only. However, cards from a combined file 
may be stacker selected in either input specifications or 
output-format specifications (see Column 16 in Chapter 9). 


Any card type that is stacker selected on the input specifi- 
cations should not have an output operation specified for 
it. If an output operation is specified, however, the input 
stacker selection specification is overridden (see Column 16 
in Chapter 9) if the output is performed. 


When the same stacker is used for both input (or combined) 
and output files, a card from the output file is put in the 
stacker before a card from the input or combined file. This 
procedure is reversed (input or combined card before out- 
put card) if Look Ahead Fields or dual I/O areas are speci- 
fied for the input file (a stacker select specification may not 
be made for input files with dual I/O areas). 


The card type in an OR line may be selected for a special 
stacker by an entry in column 42, If the card type in an 
OR line has no entry in column 42, the card goes into the 
pre-determined stacker. (See Columns 53-58 in this chap- 
ter for more information on OR lines.) AND lines may not 
have an entry in stacker select. 


COLUMN 43 (PACKED OR BINARY FIELD) 


Entry Explanation 

Blank Field is in unpacked decimal format, or is 
alphameric. 

P Field is in packed decimal format. 

B Field is in binary format. 


Column 43 is used to indicate that a numeric field is in 
packed decimal or binary format. Numeric data fields in 
packed decimal or binary format must be converted to the 
unpacked decimal format before they can be processed. 
This conversion ignores decimal points. 


Column 43 must contain a P if the input field named in 
columns 53-58 is in packed decimal format. Column 43 
must contain a B if the input field named in columns 53-58 
is in binary format. 


Any array which was read in packed or binary format 
should have an entry in column 43 of the Input Sheet. In 
this case, the From and To columns in the Input Sheet 
should define the positions the array occupies in the rec- 
ord in the packed or binary format. The unpacked decimal 
length of each array element is defined on the Extension 
Sheet. 


Unpacked Decimal Format 


Unpacked decimal format means that each byte of storage, 
whether on disk or in the computer, can contain one char- 
acter. (That character may be a decimal number or it may 
be an alphabetic or special character.) In the unpacked 
decimal format, each byte of storage is divided into a 4-bit 
zone portion and a 4-bit digit portion. Figure 82 shows 
the unpacked decimal format. 


The zone portion of the rightmost byte indicates whether 
the decimal number is positive or negative. In unpacked 
decimal format, the zone portion is included for each digit 
in a decimal number; however, only the zone over the 
rightmost digit serves as the sign. Figure 83 shows the 
unpacked decimal format for decimal number 8, 191. 


Once data has been read into the computer, it must be 
represented in unpacked decimal format before it can be 
processed. Thus, it is perfectly correct to store data on 
disk and read it into the computer in the unpacked decimal 
format. This eliminates converting the input data since it 
is already in the required format. 


Positive 
Sign 


Zone Zone Zone 





pre 4 BY TOS ce 


Figure 83. Unpacked Format of Decimal Number 8, 191 


———— >) 7) 6 0 0 7 





Byte 


Figure 82. Unpacked Decimal Format 





1101 = Minus Sign 
1111 = Plus Sign 


Input Specifications 129 


Packed Decimal Format (P) 


Packed decimal format means that a byte of disk storage 
can contain two decimal numbers. This format allows you 
to get almost twice as much data into a byte as you can 
using the unpacked decimal format. 


In the packed decimal format, each byte of disk storage, 
except the rightmost byte, is divided into two 4-bit digit 
portions. The rightmost portion of the rightmost byte con- 
tains the sign (plus or minus) for that field. Figure 84 
shows packed decimal format. 





Figure 84. Packed Decimal Format 


The sign portion of the rightmost byte is used to indicate 
whether the numeric value represented in the digit portions 
is positive or negative. In the packed decimal format, the 
sign is included for each decimal number; the zone portion 
is not given for each digit in the number. Compare how 
the decimal number 8,191 is represented in packed decimal 
format (Figure 85) with its unpacked representation 
(Figure 83). 


Positive 


0 8 14 9 4 Sgn 


[0000 1000] 0001, 1001 | 0001, | 


Figure 85. Packed Format of Decimal 8,191 


Since data must be represented in unpacked decimal format 
once it is inside the computer, you must give the RPG II 
program an indication when input fields are in a different 
format. A P in column 43 indicates that the input field is 
in the packed decimal format and that the system must 
convert this field to the required unpacked format. 
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Binary Format 


Binary format means that two bytes of disk storage can 
contain up to four decimal numbers, and that four bytes of 
disk storage can contain up to nine decimal numbers. In 
the binary format, each field on disk must be either two or 
four bytes long. 


Each 2-byte binary field consists of a 1-bit sign followed by 
a 15-bit numeric value. In binary format, a decimal num- 
ber as high as 9,999 requires only two bytes of disk storage. 
For each 2-byte binary field stored on disk, the system 
automatically sets aside four bytes of storage to accommo- 
date the field when it is converted to unpacked format. 
Figure 86 shows a 2-byte field in binary format. 


Figure 86. Two-Byte Field in Binary Format 


Each 4-byte binary field consists of a 1-bit sign followed by 
a 31-bit numeric value. In binary format, a decimal number 
as high as 999,999,999 requires only four bytes of disk 
storage. For each 4-byte binary field stored on disk, the 
system automatically sets aside nine bytes of core storage 
to accommodate the field when it is unpacked. Figure 87 
shows a 4-byte field in binary format. 


Figure 87. Four-Byte Field in Binary Format 


Binary fields containing values greater than decimal 9,999 
(4-byte decimal field) or 999,999,999 (9-byte decimal 
field) cannot be converted into 4-byte or 9-byte decimal 
fields without loss of data. High order (leftmost) digits of 
decimal numbers longer than four or nine digits are lost in 
such cases. 


In both 2-byte and 4-byte binary fields, the sign bit indi- 
cates whether the numeric value is positive (sign bit is off) 
or negative (sign bit is on). Notice that in binary format 
the zone portion of the decimal number is not included. 
Compare the binary format of the number 8,191 (Figure 
88) with its packed and unpacked representation (Figures 
83 and 85). Figure 89 shows the binary format of 

-8,191. Note that the sign bit is on (negative number). 
The same procedure shown in Figure 89 can be used to 
convert any negative binary field to decimal. 


Since data must be represented in unpacked decimal for- 
mat once it is inside the computer, you must give the 

RPG II program an indication of when input fields are in 
another format. A B in column 43 indicates that the input 
field is in the binary format and that the system must con- 
vert this field to the required unpacked format. 


COLUMNS 44-51 (FIELD LOCATION) 


Entry Explanation 


Two 1-4 
digit 
numbers 


Beginning of a field (From) and end of a 
field (To). 


Positive 
Sign 


| | | I | | 
pore ee 024+ 512 : 256 - 128 





I 
+ 64+ 32+ 16+ 8 + 4 
t 1 ' t ' 





Use columns 44-51 (From and To) to describe the location 
on the record of each field containing input data named in 
columns 53-58 (Field Name). Enter the number of the 
record position in which the field begins in columns 44-47, 
Enter the number of the record position in which the field 
ends in columns 48-51. 


A single position field is defined by putting the same num- 
ber in both From (columns 44-47) and To (columns 48-51). 
If a field of more than one position is defined, the number 
entered in From (columns 44-47) must be smaller than the 
number entered in To (columns 48-51). 


It is not necessary that the From and To columns specify 

a whole array. A portion of an array may be read in; how- 
ever, the array will be read in from element 1 up to as many 
elements as will fit in the numbers specified in the From 
and To columns. 


The maximum field length for a numeric field is 15 posi- 
tions (eight if packed, four if binary). The maximum field 
length for an alphameric field is 256 characters. 


Entries in these columns must end in columns 47 and 51. 
Leading zeros may be omitted. 


\ 
= 8,191* 


t | 
+ + 1 
{ t | 












* 


The numeric value of a positive binary field is obtained by adding the values of the bits 


that are on (represented as i’s). The sign bit is not included in the addition. 


Figure 88. Binary Format of Decimal Number 8,191 


Negative 
Sign } 1 j 1 | ! ! 


{TORS 20861 1026+ Shea 208. * 123 * 64 : 32 : 16 i 8 : 4 
! 


-+— 
nN 

~+— 
°o 

—-I— 





** The numeric value of a negative binary field is obtained by adding the values of the bits 
that are off (represented as 0’s), plus one. The sign bit is not included in the addition. 


Figure 89, Binary Format of Decimal Number-8,191 
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COLUMN 52 (DECIMAL POSITION) 


Entry Explanation 

Blank Alphameric field. 

0-9 Number of decimal positions in numeric 
field. 


Use column 52 to indicate the number of positions to the 
right of the decimal in any numeric field named in columns 
53-58. Column 52 must always have an entry when the 
field named in columns 53-58 is numeric. If you wish to 
define a field as numeric with no decimal position, enter a 
0. If a field is to be used in arithmetic operations or is to 
be edited, it must be numeric. The number of decimal 
positions must be less than or equal to the field length. 


COLUMNS 53-58 (FIELD NAME) 


Entry Explanation 


1-6 alpha- 
meric 
characters 


Field name, array name, or array element 


PAGE 


PAGE1 Special words 


PAGE2 


Use columns 53-58 to name a field, array, or array element 
found on your input records. If you are referencing an 
array, additional entries may be needed in these columns 
(see Tables and Arrays in Chapter 5). Use this name 
throughout the program whenever you refer to this field. 
You must indicate the names of the fields for all types of 
records. However, you should name only the fields that 
you use. 
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Field Names 


A field name can be from one to six characters long, must 
begin in column 53, and must be a valid RPG II name. 


All fields in one type of record should have different names. 
If two or more fields on the same record type have the 
same name, only the field described last is used. However, 
fields from different record types may have the same name 
if the fields are the same length and contain the same type 
of data. This applies even if the fields are found in differ- 
ent locations in each record type. 


Fields which are read in from a card are limited to the 
length of one punched card. 


Fields that are used in arithmetic operations or fields that 
are edited or zero suppressed (see Column 38 and Columns 
45-70 in Chapter 9) must be defined as numeric. This 
means that column 52 must have a decimal position entry. 


A separate line is used for each field description. 


Field Names in OR Relationship 


Even though two or more record types contain identical 
fields, you must describe each field. This may require 
duplicate coding. To eliminate duplicate coding of identi- 
cal fields from different record types, you may use the OR 
relationship. A maximum of twenty OR or mixed AND 
and OR lines can be used for each record sequence group. 


An OR relationship means that the fields named may be 
found in either one of the record types. You may use OR 
lines when: 


1. | Two or more record types have the same fields in 
the same positions (see Example). 


2. Two or more record types have some fields which 
are identical and some fields which differ in location, 
length, or type of data. See Columns 63-64 in this 
chapter for sample coding of such record types. 


Write the word OR in columns 14 and 15 to indicate an 
OR line (see Example). If there are several AND or OR 
lines, field description lines start after the last record identi- 
fication line. 


Special Words (PAGE, PAGE1, PAGE2) 


If your printed report has several pages, you may want to 
number the pages. The special word PAGE allows you to 
indicate that page numbering is to be done. When you use 
a PAGE entry on the Output-Format Sheet, page number- 
ing automatically starts with 1 (see Columns 32-37 in 
Chapter 9). 


If you want to start at a page number other than 1, you 
can enter that page number in a field of an input record 
and name that field PAGE in columns 53-58. The number 
you enter in the PAGE field of the input record should be 
one number less than the starting page number. If your 
numbering should start with 24, enter a 23 in the PAGE 
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field. The PAGE field can be of any length (up to 15 posi- 
tions), but must have zero decimal positions specified 
(Figure 90). Any entry you make in the PAGE field should 
be right justified, such as 0023. 


Page numbering can be restarted during a program run by 
entering a number in a PAGE field of any input record. 

The PAGE fieid can be defined and used in calculations like 
any other field, 


The three possible PAGE entries: PAGE, PAGE], and 
PAGE? are provided for naming different output files. 
Care must be taken when using the same entry for two 
different output files. 
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Figure 90. Page Record Description 
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Example COLUMNS 59-60 (CONTROL LEVEL) 


Figure 91 shows how the use of OR lines can save dupli- Entry Explanation 

cate coding. The two different record types (one identified 

by a 5 in column 1, the other by a 6 in column 1) both L1-L9 Any control level indicator. 

have identical fields which must be described. Figure 91, 

insert B shows the use of OR lines to do the same thing Use columns 59-60 to assign control level indicators to 
with less coding. The coding in Figure 91, insert B says input fields. (Control level indicators may not be associ- 
that all four fields can be found on either the record type ated with a chained or demand file.) Control level indica- 
identified by the 5 in column 1 or the record type with a tors are used to specify the point at which specified opera- 
6 in column 1. tions are to be done. You may assign a control level. 


International Business Machines Corporation Form X21-9094 


RPG INPUT SPECIFICATIONS 


Printed in U.S.A. 


75 76 77 78 79 80 


1 2 
Program 
punching [Grpne | | | | {TT | TL] Cotten 


Instruction 











Programmer 






































= . 
z Field 
3 e Indicators 
= a Ss 
2. 2 5 \,| 3 
. : -| |2"* S : 2|gsle Sterling 
Line Filename z 2 =| Field Name ? ss| ev Sign 
2 lS o win Zero iti 
a =jo]s a - 3 Position 
= 8 Slo = = = ee: & | Plus |Minus 
E S fels] 5 E ESE] 2 
e os e 8 e o's 
6 & {2/918 sec} 2 
re 8 |2Zjole a 8 jes] a 
3.4 516 49 50 51/52/53 54 55 56 57 58}59 60/61 62463 64]65 66]67 68/69 70|71 72 73 74 


















ate 
ES 
Sm 
S03 
a 
So 
. 











a 
bet 








= 






























































~T=TeTs Te Tete Te Ts] 
=[efefe[s Teta 

Pee 
SST TET ETT 


@) 





IBM Internationa! Business Machines Corporation 
RPG INPUT SPECIFICATIONS 


se 2 : =) 
Date ints [| | Pi 
: Page rogram 
Punching | Graphic [ | Identification 
Progra Instruction | Punch | 


Programmer 
Record Identification Codes f Field 
Field Location . 
Indicators 

















Sterling 
Sign 





Field Name 


anit HRT 
B | : co BEGG 


fee emer HET 
mepeost ttt ECE HC 


Filename 














w 
c 
= 3 
oO 
a 
Te TE Tee |= Form Type 

“ 

ao 

o 

3 

=u 

a 

2 

a 

a 

3 

oe 

Nn 

oo 

8 

xv 

nN 

N 

wo 

nN 

> 

= 
i 
Decimal Positions 
Control Level (L1-L9) 

2 Matching Fields or 
iE Chaining Fields 

an 

es Field Record Relation 
an 

a 

+5 

oa 

g 

& 

8 

ss 

o 

= 

~ 

Nn 

~ 

wo 

nl 

> 

















o ° 
(0) = = 
w _ 
——— 
—— 
aif ee 
—— 
—— 
—— 


Figure 91. Record Types with Identical Fields 
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indicator to any field except a binary field. This field is 
then known as a control field and is checked for a change 
in information. When information in the control field 
changes, a control break occurs, All records having the 
same information in the control field are known as a 
control group. 


Whenever a record containing a control field is selected, 
the data in the control field is compared with data in the 
same control field from the previously selected record. 
When a control break occurs, the control level indicator 
turns on. Operations conditioned by the control level 
indicators are then done (see Columns 7-8 and Columns 
9-17 in Chapter 8 or Columns 23-31 in Chapter 9). 


L1-L9 (Control Level Indicators) 


Control level indicators are used to signal when a change 

in a control field has occurred. Because they turn on when 
the information in a control field changes, they may be 
used to condition operations (such as finding totals) that 
are to be performed only when all records having the same 
information in the control field have been read. They may 
also be used to do total printing or to condition operations 
that are to be done on only the first record in a control 
group. Control level indicators always turn on after the 
first record of a control group is read. 


The indicators are ranked in order of importance with 
larger numbers ranking higher than lower numbers. L4 has 
a higher rank than L1. All lower ranked indicators turn 
on when a higher level indicator turns on. For example, if 
an L8 control break occurs, L1-L7 also turn on. The 
importance of a control field in relation to others should 
determine how you assign indicators. For example, the 
type of data which demands a subtotal has a lower control 
level indicator than data which needs a grand total. A 
field containing department numbers is given a higher con- 
trol level indicator than a field containing employee num- 
bers (see Examples, Example 1). 


Control level indicator LO, since it is always on, cannot 

be assigned to a control field. Nevertheless, you may use 
it to condition operations (see Columns 7-8 in Chapter 8). 
Normally, control level indicators are used to: 


1. Condition certain calculations to be performed 
when the information in the control field changes, 


2. Condition certain punching (summary punching) or 
printing (total printing) to be done after totals have 
been accumulated for one control group. 





3. Condition certain operations to be done on the 
record that causes a change in a control field (first 
record of a new control group). 


Control level indicators may be used in input, calculation, 
and output-format specifications, 


A control level indicator may be turned on or off by oper- 
ation codes SETON and SETOF and may be used as record 
identifying indicators. However, not all control level indi- 
cators lower than the one specified are turned on or off in 
these cases. For example, when L2 is set on, L1 does not 


automatically turn on. 


Using Control Fields 
When using control fields, remember: 


1. ‘If the same control level indicator is used in differ- 
ent record types or in different files, the control 
fields associated with that control level indicator 
must be the same length and same type (alphabetic 
or numeric). See Examples, Example 2. 


2. In the same record type, record columns in control 
fields assigned different control level indicators may 
overlap (Figure 92). However, the total number of 
columns assigned as control fields (counting each 
control level only once) must not be greater than 
144. In Figure 92 for example, a total of 15 columns 
is assigned to control levels. 
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Figure 92. Overlapping Control Fields 
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Field names are ignored in control levei operations, 
Therefore, fields from different record types which 
have been assigned the same control level indicator 
may have the same name. 


Control levels need not be written in any sequence. 
L2 entry can appear before L1. Also, there may be 
gaps in the control levels assigned. 


When numeric control fields with decimal positions 
are compared to see if a control break has occurred, 
they are always treated as if they have no decimal 
positions. For example, 3.46 is considered equal to 
346, 


If a field is specified as numeric, only the digit por- 


tion is used to determine if a control break has 


Vawas AW Owe ON New ewe edeseey 24 GH Wssee sd VEG 1100 


occurred. This means that a field is always con- 
sidered to be positive. A minus five is considered 
equal to a plus five. 


All control fields given the same control level indi- 
cator are considered numeric if any one of those 
control fields is described as numeric (column 52 
has an entry). This means that when numeric con- 
trol fields are compared to see if the information 
has changed, only the digit portion of each character 
is compared. 


Control fields are initialized to hexadecimal (logical) 
zeros or to the lowest alternate collating sequence 
value given. 


A control break is highly probable after the first 
record containing a control field is read. The con- 
trol fields in this record are compared to an area in 
storage which is void of any type of data. Since 
fields from two different records are not being com- 
pared, total calculations and total output operations 
are bypassed for the first record containing a con- 
trol field. 


If different record types in a file do not have the 
same number of control fields, unwanted control 
breaks may occur. See Examples, Example 3 for a 
method of avoiding unwanted control breaks. 


Split Control! Fields 


If a control field is made up of more than one field of a 
record, it is then known as a split control field. A split 
control field is created when the same indicator is assigned 
to two or more connected or unconnected fields on the 
same record type. 


All fields in one record that have the same control level 
indicators are combined by the program in the order speci- 
fied in the input specifications and treated as one control 
field (see Examples, Example 4). Some special rules for 
split contro! fields are: 


1, For one control level indicator, a field may be split 


in some record types and not in others if the field 
However, the lenoth of the field 


VAG Ad SWEEP EEE WR LEEW LEA Nty 


whether split or not, must be the same in all record 
types. 


names are different 


sis Aw Nese wR wide 2A 


2. The length of the portions of a split control field 
may vary for different record types if the field names 
are different. However, the total length of the por- 
tions must always be the same. 


Ww 
° 


No other specification lines may come between lines 
which describe split control fields. 


4. If one section of a split control field is numeric, the 
whole field is considered numeric. 


5. A numeric split control field may have more than 15 
characters if any one portion of the split field does 
not exceed 15 characters and the sum of all control 
fields (counting each control level only once) is not 
greater than 144 characters. 


6. A split control field cannot be made up of a packed 
decimal field and an unpacked decimal field. Both 
portions of the control field must be packed, or 


both unpacked. 


Note: Additional rules applying to control level indicators 
when used with indicators in the Field Record Relation 
columns are discussed in Columns 63-64 in this chapter. 


Examples Example 2: Figure 93 shows that the same control level 


indicators may be used for different record types. Notice, 


Example 1: Figure 93 shows the assignment of three indi- however, that the control fields having the same indicators 
cators. The names of the control fields (DIVSON, DEPT, are the same length. EMPLNO, in both cases, is 6 columns 
EMPLNO) give an indication of their relative importance. in length, DEPT is 4, and DIVSON is one. 


The division (DIVSON) is the most important group. It is 
given the highest control level indicator used (L3). The 
department (DEPT) ranks below the corporation; L2 is 
assigned to it. The employee field has the lowest controi 
level indicator (L1) assigned. Note the overlap of control 
fields on lines 02 and 06. 
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Figure 93. Control Level Indicators (Two Record Types) 
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Example 3: Different record types normally contain the 
same number of control fields. However, some applications 
require a different number of control fields in some records. 
This is shown in Figure 94, insert A. The salesman records 
contain only the L2 control field. The item records con- 
tain both L2 and L1 control fields. 


With normal RPG II coding, an unwanted control break is 
created by the first item record following the salesman 
record. This is recognized by an L1 control break imme- 
diately following the salesman record and results in an 
asterisk being printed on the line below the salesman 
record (see Figure 94, insert B). 
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138 


§ 2093 4 5 6 7 BF WN 12 13 4 15 16 17 18 t9 20 21 22 23 24 25 26 27 26 29 30 31 32 


1D Code (B) 


37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 SS S6 57 5B 59 60 61 62 63 64 


Salesman Number (L2FLD) 


65 66/67 68 £9 70 71 72 73 74 75 76 77 78 79 BO 81 B2 83 84 BS BE G7 BB 89 90 91 92 93 94 95 96 


item Number (L1FLD) 


2.103 104 105 106 107 108 109 NO 1 NZ 13 4 15 6 117 1B 9 120 12) 2 123 124 125 126 127 128 


1293 4 5 6 7 B 9 1 1 12 13 14 15 16 17 16 19 20 21 22 23 24 25 26 27 28 29 30 31 32 


33 34 35 36 37 36 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 SA 59 60 61 62 63 64 






65 66 677/68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 93 B4 B5 BE 87 86 89 90 91 92 93 94 95 96 


Salesman Number (L2FLD) 


101 102 103 104 105 106 107 108 109 10 Tt 2 119 Nd 11S 16 17 116 19 120 121 22 123.124 125 126 127 128 


4 5 6 7 B 9 10 1 12 13 14 15 ENT IA 19 2m 9% 92 29-74 76 2K 27 OR PQ IMD IZ 


33 34 35 36 37 38 39 40 41 42 43 44 4S 46 47 AR 49 -5O SI 52 52 Sa SS 5K S57 SA 59 BO 61 62 63 64 


65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 8O 81 82 83 64 85 66 87 88 89 90 91 92 93 94 95 96 


Figure 94, inserts C and D, contain excerpts from a program 
that processes the input shown in Figure 94, insert A, and 
prevents the unwanted control break from occurring. The 
corrected output produced is shown in Figure 94, insert B. 


Line 01 of the Calculation sheet sets on indicator 11 when 
the salesman record is read. When the next item record 
causes an L1 control break, no total output is printed be- 
cause indicator 11 is on (line 07 of Output-Format sheet). 
Detail calculations are then processed for the item record 
and line 02 of the Calculation sheet sets indicator 11 off. 
This allows the normal L1 control break to occur. 
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Example 4: Figure 95 shows a split control field made up 
of three portions. The control level indicator (L4) which 
is used for all three portions indicates that they are all to 
be treated as one control field. The field can be pictured 
as follows: 

CUSNO ACCTNO REGNO 

1679 865397 111 


The first field assigned the same control level indicator 
begins the control field; the last ends it. 


COLUMNS 61-62 (MATCHING FIELDS) 
Entry Explanation 
M1-M9 Any matching level 


Use columns 61-62 to specify matching fields and sequence 
checking. 


An entry in columns 61-62 indicates: 


1. Matching fields and sequence checking when you 
have two or more input, update, or combined files 
with match fields (see general discussion that follows 
under Multifile Processing). 


2. Only sequence checking when you have just one 
input, update, or combined file. 


Matching Fields 


Make an entry in columns 61-62 when you wish to compare 
records from two or more input, update, or combined files 
in order to determine when records match. Records can be 
matched by matching one field, many fields, or entire 
records, You can indicate as many as nine matching fields 
(M1-M9). Whenever the contents of the match fields from 
records of the primary file are the same as the contents of 
the match fields from a secondary file, the matching 
record (MR) indicator turns on. M1-M9 are used only to 
identify fields by which records are matched. The values 
M1-M9 are not indicators, but do cause MR to turn on 
when a match occurs. Matching is allowed with primary 
and secondary files only. Figures 96 and 97 show selection 
of records by matching fields from two or three input files. 
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The records from the two files are processed 
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Figure 96. Processing Two Files by Matching Fields 
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NN 


RW QgqQq 





Figure 97. Normal Record Selection from Three Files (Part 1 of 3) 
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The first record from each file is 
read. The P and S records have 
T 10 no match field, so they are pro- 
cessed before the T record which 
has a match field. Because the 
P record comes from the primary 
file, it is selected for processing 
first. 


T 10 The next P record is read. It con- 
St tains no match field, and comes 
ep : ; 
2 from the primary file, so the new 
| P record is also selected for pro- 
cessing before the S record. 
T 10 The next P record read has a match 
Step field. The S record has no match 
. field, so it is selected for processing. 
The next S record is read. All three 
T 10 records have match fields. Because 
Step the vatue in the match field of the T 
4 record is lower than the value in the 
other two, the T record is selected 
for processing. 


The next T record is read. The match- 


ing P and S records both have the low 
T 30 ‘ 
match field value, so they are pro- 
oer cessed before the T record. Since the 
matching P record comes from the 
primary file, it is selected for proces- 


sing first. MR indicator is turned on 
at this point. 

















Figure 97. Normal Record Selection from Three Files (Part 2 of 3) 
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ed The next P record is read. Because it 
Step contains the same match field and 
6 comes from the primary file, the new 
P record is selected instead of the S 
record. 
T 30 
Step The next P record is read. The value 
7 of the match field in the S record is 


the lowest of the three, so the S 
record is selected for processing. 





The next S record is reed. Because 
the S and T records match and have 
the lowest match field, they are 
selected before the P record. Because 
the S record comes from the first 
secondary file, it is selected for 
processing before the T record. 





T 30 


The next S record is read. Because 
it also has the same match fieid as 
the S record just selected, it too is 
selected before the T record. 





TH 


Step 
10 


Figure 97. Normal Record Selection from Three Files (Part 3 of 3) 
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The next S record is read. The T 
record contains the lowest match 
field value, and is selected for proc- 
essing. 


MR (Matching Record Indicator) 


Use the MR indicator to condition calculation and output 
operations which are to be done only when records match. 


The MR indicator turns on when a primary file record 
matches any secondary file record on the basis of the 
matching fields indicated by M1-M9. The matching record 
| indicator is always set before detail calculations. It remains 
this setting for one complete cycle. If all primary file 
records match all secondary file records, the MR indicator 
is always on. If record types for which no matching fields 
have been specified are read, MR is turned off. 


A record selected by FORCE causes the MR indicator to 
remain off for one cycle while the forced record is pro- 
cessed. 


Sequence Checking 


Make an entry in columns 61-62 when you want to sequence 
check records within one input, update, or combined file. 
This entry causes sequence checking of the data in the 

fields to which M1-M9 have been assigned (see Columns 
15-16 in this chapter for sequence checking of record types). 


You may use as many as nine fields (M1-M9) to sequence 
check. The sequence (ascending or descending) of your 
record file must be specified in the file description specifica- 
tions (see Column 18 in Chapter 4). An entry in columns 
61-62 indicates that the records are to be checked to see if 
they really are in the sequence specified (see Examples, 
Example 3). 


MULTIFILE PROCESSING 


Multifile processing applies to programs that read records 
from a primary file and one or more secondary files, It is 
the name given to the methods by which programs select 
records for processing. The method used depends upon 
whether or not match fields are used in the records. 


No Match Fields 


When no match fields are used, records are selected from 
one file at a time. When the records from one file have all 
been processed, records from the next file are selected. The 
files are processed in this order: 


1. Primary file. 


2. Secondary files in the order in which they are 
described in the file description specifications. 


Match Fields 


When match fields are used, records are selected according 
to the contents of the match fields. One record is read 
from every file, and the match fields in the records are com- 
pared, If the records are in ascending order, the record with 
the lowest match field is selected for processing. If the 
records are in descending order, the record with the highest 
match field is selected. 


When a record is selected from a file and processing from 
that file takes place, the next record from the file is read. 
At the beginning of the next program cycle, the new record 
is compared with the records that had not been selected 
during the previous cycle, and one is selected. 


Records without match fields can be included in the files. 
Such records are selected before records with match fields. 
If two or more of the records being compared have no 
match fields, selection of those records is determined by 
the priority of the files from which the records came. 


When the primary record matches one or more of the 
secondary records, the MR indicator is turned on. The 
indicator can be used to condition calculations or output 
for the record that is selected. If one of the matching 
records must be selected, the selection is determined by 
the priority of the files from which the records came. 


For a discussion of multifile processing at end-of-file, see 
Column 17 (End of File) in Chapter 4. 
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Assigning Matching Field Values 9. 


1, 


te 
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Sequence checking is automatically done for all 
record types with matching field specifications. The 


contents of the fields to which M1-M9 have been 10. 


assigned are checked for correct sequence. An error 
in sequence stops the program. The record which 
caused the halt is not processed. When the machine 
is restarted, the next record from the same file is 


read, Thus, all matching fields must be in the same 11. 


order, either all ascending or all descending (see 
Column 18 in Chapter 4). 


Not all files used in the job must have matching fields. 
Not all record types within one file must have match- 
ing fields either. However, at least one record type 
from two files must have matching fields if files are 
ever to be matched. 


Ww 2asGewsil 


12. 


The same number of matching fields must be 
specified for all record types which are used in 
matching. The same matching record values must 
also be used for all types (see Examples, Example 1). 


13. 


All match fields given the same matching record 
value (M1-M9) must be the same length and type 
(alphameric or numeric). 


Note: When using packed fields the unpacked length 
[(2 x packed length)-1] is regarded as the length of 
the matched field. 


14. 


Record columns of different matching fields may 
overlap, but the total length of all fields must not 
exceed 144 characters. 


If more than one matching field is specified for a 
record type, all the fields are combined and treated 
as one continuous matching field (see Examples, 
Example 2), They are combined according to 
ascending sequence of matching record values. 


Matching fields may not be split. This means that 
the same matching field value cannot be used twice 
for one type of record. 1. 


Matching fields may be either alphameric or numeric 
(but not binary). However, all matching fields given 
the same matching record value (M1-M9) are consider- 
ed numeric if any of those matching fields is described 
as numeric. Numeric matching fields contain only the 
digits 0-9. Thus, matching fields of 050 and b50 


en thara K Aanntac hlanLl)\ unll caAmnNnara eniial 
willie y Genore’s VAGLEIN WV EEE WU SLEpd we Wy eens 


15. 


When numeric fields having decimal positions are 
matched, they are treated as if they had no decimal 
position. 


Only the digit portions of numeric match fields are 
compared, Even though a field is negative it is con- 
sidered to be positive since the sign of the numeric 
field is ignored. Thus, a -5 will match with a +5, 


Whenever more than one matching record value is 
used, all match fields must match before the MR 
indicator turns on. For example, if matching fields 
M1, M2, M3 are specified, all three fields from the 
primary file must match all three fields from the other 
record. A match on only the M1 and M7? fields will 
not turn on the MR indicator (see Examples, 

Example 1). 


Field names are ignored in matching record opera- 
tions. Therefore, fields from different record types 
which have been assigned the same match level may 
have the same name. 


If you have defined an alternate collating sequence 
for your program, alphameric fields are matched 
according to the sequence you have specified. 
Matching fields contain a corresponding initial alter- 
nate collating sequence value; that is, they are set to 
the lowest alternate sequence value if ascending 
sequence is specified, and to the highest alternate 
sequence value if descending sequence is specified. 


Matching is not allowed with demand or chained files. 


If a program contains files with match fields as well as 
files without match fields, the files without match 
fields are processed before the files with match fields. 


Note: Additional rules applying to matching records 
when used with entries in the Field Record Relation 
columns are discussed in Columns 63-64 in this chapter. 


Processing Matching Records—Two or More Files 


Whenever a record from the primary file matches a 
record from the secondary file, the primary file 
record is processed first. Then the matching second- 
ary file record is processed unless another file is 
forced (see Operation Codes, FORCE in Chapter 8). 
Remember, the record identifying indicator which 
identifies the record type just selected is on at the 
time the record is processed. This indicator is often 


ead tr control tha tina af nrarace ng that tabac 
USeG tS CONIC: tie LY PY Vi pavervoiip tide Lantos 


place. 


2. Whenever records from ascending files do not For additional information on matching records from more 
match, the record having the lowest match field than two files see Operation Codes, FORCE in Chapter 8. 
content is processed first (Figure 96). Whenever 
records from descending files do not match, the 
record having the highest match field content is Examples 
processed first. 


Example 1: Figure 98 shows three record types that are 


3. Arecord type which has no matching field specifica- used in matching records. All record types have three 
tion is processed immediately after the record it matching fields specified and all use the same values (M1, 
follows. The MR indicator is off. If this record type M2, M3) to indicate which fields must match. The MR 
is first in the file, it is processed first even if it is not indicator turns on only if all three match fields in either 
in the primary file (Figure 96). of the record types from the MASTER file are the same as 


all three fields from the record in the WEEKLY file. 

4. The matching of records makes it possible to enter 

data from primary records into their matching sec- 

ondary records since the primary record is processed 

before the matching secondary record. However, the 

transfer of data from secondary records into match- 

ing primary records can only be done through look 

ahead fields (see Columns 19-20 in Chapter 7). 
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Example 2: Figure 98 indicates three matching fields on In sequence checking, all fields are treated as one continu- 
one record. These three are combined and treated as one ous field. Thus, the matching fields look like: 
matching field organized as follows: 
M3 M2 M1 
DIVSON DEPT EMPLNO 
Record 1 003 051 008 


M3 M2 M1 Record 2 005 025 003 
The order in which the fields are specified on the input The matching field from record 1 is compared with the 
specifications does not affect the organization of the match ‘matching field from record 2. If the file is specified to be 
fields in the computer. in ascending sequence, the records are in order since 


005025003 is higher than 003051008. However, if the 
file is specified as having a descending sequence, card 2 is 
Example 3: An input file called MASTER is to be out of order and a halt occurs. 
sequence checked using three fields (Figure 99). Data from 
two records is shown below: 
COLUMNS 63-64 (FIELD RECORD RELATION) 


Data from First Record Data from Second Record 
Entry Explanation 


DEPT 008 DEPT 003 

01-99 Record identifying indicator assigned to a 
REGION 051 REGION 025 record type. 
DIVSON 003 DIVSON 005 L1-L9 Control level indicator previously used. 


MR Matching record indicator. 
U1-U8 External indicator previously set. 


H1-H9 Halt indicator previously used. 
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Figure 99. Match Fields (Sequence Checking Within a File) 
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Columns 63-64 have several uses which are discussed after 
these general rules: 


1. All fields, including matching or control fields, that 
have no field record relation specification should 
come before those that do. 


2. All fields related to one record type (that is, having 
the same Field Record Relation entry) should be 
entered as a group in specification lines following 
one another for more efficient use of core storage. 
These fields could, however, be entered in any order. 


3. All portions of a split control field must be assigned 
the same field record relation indicator and must be 
entered as a group in specification lines following 
one another (see Examples, Example 1). For more 
information on split control fields, see Columns 
59-60 in this chapter. 


4. | When used with match or control fields, the field 
record relation indicator must match a record identi- 
fying indicator for this file. 


5. | When any match value (M1-M9) is specified without 
field record relation, all match values used must be 
specified once without field record relation. If all 
match fields are not common to all records, a dummy 
match field should be used. 


Record Identifying Indicators (01-99) 


Columns 63-64 are commonly used when several record 
types have been specified in an OR relationship. Fields 
which have no field record relation indicator are associated 
with all the record types in the OR relationship. This is 
fine when all record types have the same fields. But if the 
record types in the OR relationship have some fields that 
are the same and some that are not the same, you do not 
want to associate every field with all records. Therefore, 
you must have some way of relating a field to a certain 
record. To do this, place in columns 63-64 the record 
identifying indicator found in columns 19-20 of the record 
type on which the field is found (see Examples, Example 2). 


Control fields (indicated by entries in columns 59-60) and 
matching fields (indicated by entries in columns 61-62) may 
also be related to a particular record type in an OR relation- 
ship by a field record relation entry. Control fields or 
matching fields that are not related to any particular record 
type in the OR relationship by the field record relation 
indicator are used with all record types in the OR relation- 
ship. 


When two control fields have the same control level indica- 
tor or two matching fields have the same matching level 
entry, it is possible to assign a field record relation indicator 
to just one of the control fields or to just one of the match- 
ing fields. In this case, only the specification having the 
field record relation indicator is used when that indicator is 
on. If none of the field record relation indicators are on for 
that control field or matching field, the specification with- 
out a field record relation indicator is used. Control fields 
and matching fields cannot have an L1-L9, U1-U8, or MR 
entry in columns 63-64. 


Control! Level (L1-L9) and Matching Record (MR) 
Indicators 


Another situation for which you may use these columns is 
when you wish to accept and use data from a particular 
field only when a certain condition (such as matching 
records or a control break) occurs. You indicate the condi- 
tions under which you accept data from a field by indicator 
L1-L9 or MR. Data from the field named in columns 53-58 
is accepted only when the indicator is on (see Examples, 
Example 3). 


External Indicators (U1-U8) 


You may also use these columns to condition a specifica- 
tion by an external indicator (U1-U8). The external indi- 
cator which you set prior to processing conditions whether 
a field is to be used in the program. When the indicator is 
on, the field is read; when the indicator is off, the field is 
not read, 


External indicators are primarily used when file condition- 
ing is done by an entry in columns 71-72 in the file descrip- 
tion specifications. However, they may also be used to 
condition when a specification should or should not be 
done even though file conditioning is not specified. See 
Columns 71-72 in Chapter 4. 


Halt Indicators (H1-H9) 
A halt indicator is used to relate a field to a record that is 


in an OR relationship and also has a halt indicator specified 
in columns 19-20, 
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Exampies The record with a 2 in column 95 has three split control 
fields, 
Example 1: Split control fields on one record type must 
have the same record relation entry. Figure 100, insert A, FLD1A and FLD1B 
shows several record types with split control fields in each. FLD2A and FLD2B 
The record identified by a / in column 95 has two split FLD3A, FLD3B, and FLD3C 
control fields: 
The third record type, identified by the 3 in column 95, 
FLDIA and FLD1B also has three split control fields: 
BLD2A and FLD2B 
FLD1A and FLD1B 
FLD2A and FLD2B 
FLD3D and FLD3E 
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Figure 100. Field Record Relation (Split Control Fields) (Part 1 of 2) 
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All portions of the split control field must be assigned the 
same control level indicator and all must have the same 
field record relation entry. Figure 100, insert B, shows the 
field record relation required for the three record types. 
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Figure 100. Field Record Relation (Split Control Fields) (Part 2 of 2) 
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Example 2: Figure 101 shows how record identifying indi- Example 3: Suppose you were printing a monthly report 


cators are used to relate a field to a record. The file con- showing all items sold in each department in your company. 
tains two different types of records, one identified by a 5 You also want the report to list the name of the manager of 
in column 1 and the other by a6 in column 1. FLDC is each department. Each input record then has the depart- 


telated by record identifying indicator 14 to the record type | ment number (DEPT), the manager’s name (MANAGR), 
which is identified by a 5 in column 1. FLDD is related to and one item (ITEM) that was sold by that department. 
the record type having a 6 in column 1 by record identify- Fields are described as shown in Figure 102. The records 
ing indicator 16, This means that FLDC is found on only are arranged in order by department. 

one type of record (that identified by 5 in column 1) and 

FLDD is found only on the other type. FLDA and FLDB 

are found on both types since they are not related to any 

one type by a record identifying indicator. 
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Figure 102. Field Record Relation: Accepting Data From a Field 


In the report it is not necessary to print the manager’s COLUMNS 65-70 (FIELD INDICATORS) 

name for every item that was sold in his department. 

Instead, it should be printed only when the first record Entry Explanation 

containing an item sold in a different department is read. 

The field called DEPT is established as a control field. 01-99 Field indicator. 

Remember that the manager’s name is printed only when H1-H9 Halt indicator (when checking for an 
information in the control field changes. Thus the infor- error condition in the data). 


mation from the field called MANAGR is not used often. 
It would be wasted time to accept that information every 
time a record is read. The L1 entry in columns 63-64 
indicates that the data from the field called MANAGR is 
to be accepted only when a control break occurs. 


Use field indicators 01-99 when you wish to test a field for 
a condition of either plus, minus, zero, or blank. The indi- 
cator specified turns on if the condition is true for the 
input record; it remains off or turns off if the condition is 
not true for the input record. You usually use these same 
indicators to control certain calculation or output opera- 
tions (see Columns 9-17 in Chapter 8 or Columns 23-31 

in Chapter 9). 
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The three conditions you may check for are: 


1. Plus (columns 65-66). Any valid indicator entered 
here is turned on if the numeric field named in 
columns 53-58 is greater than zero, 


2. Minus (columns 67-68). Any valid indicator entered 
here is turned on if the numeric field in columns 
53-58 is less than zero. 


3. Zero or blank (columns 69-70). Any valid indicator 
entered here is turned on if a numeric field named in 
columns 53-58 is all zeros or if an alphameric field is 
all blanks. 


A numeric field which is all blanks will turn on an 
indicator specified for all zeros. However, if an 
alphameric field is all zeros, the field wili not turn 
on an indicator specified for all blanks. 


In the input specifications, you specify the indicators that 
will be used to condition operations. In the calculation 
specifications and output-format specifications, you actu- 
ally use these indicators. When conditioning operations, 
you must know when the indicators will be off and when 
they will be on. When assigning and using field indicators 
in columns 65-70, remember: 


1. Indicators for plus or minus are off at the beginning 
of the program. They are not turned on until the 
condition (plus or minus) is satisfied by the field 
being tested on the card just read. 


2. An indicator assigned to zero or blank is off at the 
beginning of the program. It remains off until the 
field being tested is zero or blank. 


3. One input field may be assigned two or three field 
indicators. However, only the one which signals the 
result of the test turns on; the others are turned off. 


4, Ifthe same field indicator is assigned to fields in 
different record types, its status is always based on 
the last record type selected. 


5. When different field indicators are assigned to fields 
in different record types, a field indicator turned on 
will remain on until another record of that type is 
read. Similarly, a field indicator assigned to more 
than one field within a single record type will always 
reflect the status of the last field defined. 


6. _ Fieid indicators assigned in these columns may be 
SETON or SETOF in calculation specifications. 
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Halt Indicators 


Specify any halt indicator (H1-H9) in columns 65-70 when 
you wish to check for an error condition in your data, For 
example, if a field should not be zero, you can specify a 
halt indicator to check for that zero condition. If a zero 
field is found, the halt indicator turns on and the job stops 
after the record with the zero field has been processed. 


Indicators H1-H9 cause the program to halt after the 


record which caused the indicator to turn on is completely 
processed, 


COLUMNS 71-74 (STERLING SIGN POSITION) 


Entry Explanation 


Blank Sterling input is not being used. 

S Sign is in normal position. 

(Col. 74) 

1-4096 Number of the record position which contains 


the sign if the sign is not in normal position. 


Use columns 71-74 only when processing sterling currency 
amounts. The position of the sign (+ or -) for the field 
named in columns 53-58 must be indicated in these columns. 
The normal position of the sign in a field having decimal 
positions is in the rightmost decimal position of the pence 
field. If the field has no decimal positions, the normal sign 
position is in the last column (units position) of the pounds 
field. See Sterling in Appendix D for more information. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2, 


Calculation specifications describe the calculations you 
want performed on your data and the order in which you 
want them performed. Each calculation specification can 


Wi i that indicate: 
be divided into three parts that indicate: 


1. When the operation is to be performed (columns 
7-17). The indicators entered in these columns deter- 
mine under what conditions the operation specified 
is to be done. 


2. What kind of operation (columns 28-32) is to be 
performed on the data in columns 18-27 and/or 
columns 33-42, Entries in these fields describe the 
kind of operation to be done. They also specify the 
data upon which the operation is to be performed. 


Chapter 8. Calculation Specifications 


tn 


What tests are to be made on the results of the oper- 
ation (columns 54-59), The indicators entered here 
signal the result of the operation and may serve to 
condition other operations. 

Write these specifications on the Calculation Sheet 
(Figure 103). 

COLUMNS 1-2 (PAGE) 


See Chapter 2, 


COLUMNS 3-5 (LINE) 


See Chapter 2. 
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Figure 103. Calculation Sheet 
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COLUMN 6 (FORM TYPE) 


A C must appear in column 6, 


COLUMNS 7-8 (CONTROL LEVEL) 


Entry Explanation 

Blank Calculation operation is not part of a sub- 
routine and may only be performed for 
detail calculations. 

LO, Calculation operation is done when the 

L1-L9 appropriate control break occurs or an 
indicator is set on (LO is always on). 

LR Calculation operation is done after the 
last record has been processed or after the 
LR indicator has been set on by a SETON 
operation, 

SR Calculation operation is part of a subroutine. 

AN,OR _ Establishes AN and OR relationships 


between lines of indicators. 
If you leave columns 7-8 blank, the operation specified on 
the same line is done every time a record is read, provided 
indicators in columns 9-17 of that line or AN/OR lines 
associated with that line allow it (see Columns 9-17 in this 
chapter). 


Calculations must be specified in the following order: 


1, Detail (blank in columns 7-8). 


2. Total (LO or L1-L9 in columns 7-8). 


3. Last record (LR in columns 7-8). LR calculations 
must appear after L1-L9 calculations. 


4. Subroutine (SR in columns 7-8). 


AN/OR lines can appear within any of the above calcula- 
tions. 
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Contro! Level Indicators (LO, L1-L9) 


The LO indicator is on during the entire program. You 
need never assign this indicator, but you may use it. The 
indicator is often used when no control fields have been 
assigned. Remember that when a control break occurs, all 
operations conditioned by control level indicators are done 
before those that are not conditioned. If you have no con- 
trol field but want total calculations to be done and total 
output records to be written or punched, you may use the 
LO indicator to condition those operations (see Examples, 
Example 1), 


Use control level indicators Li-L9 to signal when certain 
operations are to occur. If you specify a control level 
indicator (L1-L9) in columns 7-8, the operation described 
on the same specifications line is done only when that 
indicator is on. Remember that a control level indicator 
turns on when information in a control field changes (see 
Columns 59-60 in Chapter 7). 


A control break for a certain level causes all lower control 
level indicators to turn on. Thus, if you used indicators 
L3, L2, and L1 in your program, and L3 turns on, L1 and 
L2 will also turn on. All operations conditioned by L3, 
L2, and L1 will be done. Exceptions are as follows: 


1. When a control level indicator used as a record 
identifying indicator turns on to reflect the type of 
record read, only that one control level indicator 
turns on. 


2. When a control level indicator is turned on by the 
SETON instruction, only that one control level 
indicator turns on, 


Note: In one program cycle, all operations conditioned 
by control level indicators in columns 7-8 are done at total 


4t ee 4e nen 


taVeas ts ms - fama a at; 
calculation time. Operations that ditioned by con- 


arn Ann 
C Gate UVULLULLUVGIIVU Uy VULL 


trol level indicators in columns 9-17 are done at detail 
calculation time immediately following the control break. 


LR (Last Record Indicator) 


Use the LR indicator to condition all operations that are-to 
be done only at the end of the job. This indicator auto- 
matically turns on after the last record of the input file has 
been processed. When LR turns on, all other control level 
indicators are also automatically turned on. If LR is on, 
the job ends after all total operations have been performed. 
It is also possible to turn the LR indicator on by a SETON 
Operation. This does not, however, cause all other control 
level indicators used to turn on. (LR cannot, however, be 
turned off by a SETOF operation.) 


Subroutine Lines (SR) 


Use columns 7-8 to indicate that a line is part of a sub- 
routine (see Subroutines in Chapter 8), Subroutine lines 
must be specified last. 


AN/OR Lines 


Columns 7-8 can be used to specify that lines of indicators 
are in an AN/OR relationship. By using the AN/OR 
relationship, many lines of indicators may be grouped to- 
gether to condition an operation. A maximum of seven 
AN, OR or AN/OR lines may be used to condition an oper- 
ation. 


The first line of such a group contains blanks in columns 
7-8, or an LO-L9, LR, or SR entry if the group of lines is 
conditioned by a control level indicator or is part of a sub- 
routine, All lines after the first line in the group must have 
an AN or OR entry in columns 7-8. The indicators on each 
line are in an AND relationship. It is not necessary to have 
three indicators on each AN and OR line, but an AN/OR 
group must have at least one indicator. The last line of the 
group contains the operation and the necessary operands. 
All lines in the group prior to the last line must contain 
blanks in the columns for Factor 1, Factor 2, Operation, 
Result Field, and Resulting Indicator (see Examples, Ex- 
ample 2 and 3). 


Examples 

Example 1: Figure 104 shows the format of the report 
printed by the job described in Figure 105. The job shows 
how total operations can be performed even though there 
is no control field (no L1-L9 indicators). The job requires: 


1. A list of items sold in each district. 


2 A total of all sales for each district. 


3. A grand total of all sales in all districts. 
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Figure 104. Format of a Printed Report 
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Figure 105. Use of the LO Indicator (Part 2 of 2) 


The input records have ITEM and COST fields and a one 

column record identification field. The records are grouped 

in ascending sequence by district. The record identification 

code is used to tell which district a record is from. For 

example, records from district one are identified either by Identifying 
aJ oranM incolumn 1. Records from district two are cade 
identified either by a J or an N in column | (Figure 105, 

insert A). 






No field on the records can serve as a control field. Cer- 
tainly, ITEM and COST cannot. The record identifying 
field cannot either since one district can be identified by 
two different codes, This means that the contents of this 
one column identifying field can change even though the 
district number cannot. Therefore, in order to get total 
operations without the use of a control field, LO must be 
used (see line 05 of Figure 105, insert B). Assume that the 
five records shown in Figure 106 are read. Refer to 
Figure 103 as you read the description of operations per- 
formed for each record read. 


Figure 106. Data Records with No Control Fields 
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(3) 


(4) 
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LO, 21 


LO, 21 


LO 


LR 


Indicators On Operations Perforimed 


Ol turns on. 

No total operations are per- 
formed because conditions 
in lines 5 and 6 (Calculations 
Sheet) are not met. 
(Remember that operations 
conditioned by control level 
indicators in columns 7-8 are 
performed first, but are by- 
passed on the first RPG II 
cycle). 

COST is added to DISTOT. 
21 is set on. 

ITEM and COST are printed 
out. 

O01 is turned off. 

21 remains on. 


O1 is turned on. 

No total operations are 
performed. 

COST is added to DISTOT. 
ITEM and COST are printed 
out. 

O1 is turned off. 

21 remains on. 


02 turns on. 


DISTOT is added to GDTOT. 


(Conditions for the total 
operation in line 5 have been 
met.) 


DISTOT is printed out. 
COST is added to DISTOT. 
21 is set off. 

ITEM and COST are printed 
out. 

02 is turned off. 


02 is turned on. 

No total operations are 
performed. 

COST added to DISTOT. 
ITEM and COST are printed 
out. 

02 is turned off. 


DISTOT added to GDTOT 
(LR indicator is on). 


DISTOT and GDTOT 
printed out. 


Example 2: Figure 107, insert A shows the use of AN 
and OR entries to group lines of indicators. When indica- 
tors 01, 02, 03 and 04 are on, or when indicators 01, 02, 


03 and 05 are on, the calculation will be performed. 


Example 3: Figure 107, insert B illustrates a case in which 
three additional conditions will cause the L4 total calcula- 
tions to be performed: 01 and 02 are on, but not 03; or 
O01 and 03 are on, but not 02; or 02 and 03 are on but not 
01. 


COLUMNS 9-17 (INDICATORS) 


Entry Explanation 


Blank Operation is performed for every record 
read if columns 7-8 are not LO or L1-L9 or 
SR. 

01-99 Resulting indicators used elsewhere in the 
program. 


L1-L9 Control level indicators previously assigned. 


LR Last record indicator. 

MR Matching record indicator. 

H1-H9 Halt Indicators assigned elsewhere. 
U1-U8 External indicators previously set. 
OA-OG, Overflow indicator previously assigned. 
OV 


Use columns 9-17 to assign indicators that control when an 
operation is or is not to be done. You may use from one to 
three indicators on a line. By using AN or OR entries in 
columns 7-8, many indicators can be used to condition one 
operation, A maximum of seven AN or OR lines in any 
combination are allowed. 


There are three separate fields (9-11, 12-14, and 15-17) on 
each line, one for each indicator. If the indicator must not 
be on in order to condition the operation, place an N before 
the appropriate indicator (columns 9, 12, 15). 


All three indicators on one line are in an AND relationship 
with each other. The indicators on one line, or indicators 
in grouped lines, plus the control level indicator (if used in 
columns 7-8) must all be exactly as specified before the 
operation is done (see Examples, Example 1). 
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Figure 107. Use of AND/OR Lines for Indicators 
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Indicators are used as follows in columns 9-17: 
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Use any record identifying indicators previously speci- 
fied in columns 19-20 on the Input Sheet to condition 
an operation that is to be done only for a certain type 
of record (see Examples, Example 1). 


Use any field indicators previously specified in columns 
65-70 on the Input Sheet to condition an operation that 
is to be done only after the status of a field has been 
checked and has met certain conditions (see Examples, 
Example 3). 


Use any resulting indicators specified in columns 54-59 
on the Calculation Sheet to condition operations 
according to the results of previous calculation opera- 


tions (see the example in Columns 54-59 in this chapter). 


Use any halt indicators previously used in columns 
65-70 on the Input Sheet or in columns 54-59 on the 
Calculation Sheet to prevent the operation from being 
done when a specified error condition has been found in 
the input data (see Columns 19-20 in Chapter 7) or on 
previous calculations. This is necessary because the 
record that causes the halt condition will be completely 
processed before your program stops. Thus, if the oper- 
ation is performed even on an error condition, the 
results are in error. It is also possible to use a halt indi- 
cator to condition an operation that is to be done only 
when an error occurs. 


Use the matching record (MR) indicator to condition 
an operation that is to be done only when matching 
records have been found. 


Use any external indicator, including any previously 
specified in columns 71-72 on the File Description 
Sheet, to condition which operations should be done 
and which files should be used for a specific job. 


Use the last record (LR) indicator to condition all 
operations that are to be done at the end of the job. 


Use any control level indicators specified in columns 
59-60 on the Input Sheet, or in columns 54-59 on the 
Calculation Sheet. If control level indicators are used 
in these columns instead of in columns 7-8, the opera- 
tion is performed on only the first record of a new con- 
trol group at detail calculations time. 


Use any overflow indicators previously specified in 
columns 33-34 on the File Description Sheet to condi- 
tion operations that are to be done when overflow 
occurs. See Columns 33-34 in Chapter 4 for a discus- 
sion of overflow. 


The relationship between columns 7-8 and columns 9-17 
is as follows: 


@ When a control level indicator (11-L9) is specified in 
columns 7-8 and MR is specified in columns 9-17, MR 
indicates the matching condition of the previous record 
and not the one just read that caused the control break. 
After all operations conditioned by control level indica- 
tors (specified in columns 7-8 of the Calculation Sheet) 
are done, MR then indicates the matching condition of 
the record just read. 


@ When a control level indicator is used in columns 9-17 
and columns 7-8 are not used, the operation conditioned 
by the indicator is done only on the record that causes 
that control break or any higher level control break. 


@ In one program cycle all operations conditioned by 
control level indicators in columns 7-8 are done before 
operations that are conditioned by control level indica- 
tors in columns 9-17 (see Examples, Example 4). 


Examples 


Example 1: Figure 108 shows the use of control level 
indicators to condition calculation operations. The opera- 
tion in line 02 may be done when the L2 indicator is on, 
provided indicator 10 is on and L3 is not on. 


The operation conditioned both by L2 and NL3 is done 
only when a control level 2 break occurs. These two indi- 
cators are used together because this operation is not to be 
done when a control level 3 break occurs, even though L2 
is also on. 
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Figure 108. Conditioning Calculations (Control Level Indicators) 


Example 2: Figure 109 shows how a record identifying 
indicator is used to condition an operation. When a 
record is read that has a T in column 1, the 01 indicator 
turns on. If this indicator is on, the field named SAVE is 
added to SUM. When a record having no T in column 1 is 
read, the 02 indicator is on. The subtract operation, since 
it is conditioned by 02, is then done instead of the add 
operation. 
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Record identifying indicators 01 and 02 
are assigned on the input specifications. 
They are used here to condition calculation 
operations. 
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Figure 109. Conditioning Operations (Resulting Indicators) 
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Example 3: Figure 110 shows the use of field indicators Example 4: Line 02 of Figure 111 shows the use of a con- 
to condition operations. Assume the job is to find weekly trol level indicator in columns 9-17. Assume that indicator 
earnings including overtime. The overtime field is checked 25 represents a record type and that a control level 2 break 
to see if any overtime has been put in. If the employee has occurred when record type 25 was read. L1 and L2 are 
worked overtime, the field is positive and indicator 10 both on. All operations conditioned by the control level 
turns on. In all cases the weekly regular wage is calculated. indicators in columns 7-8 are performed before operations 
However, overtime pay is calculated only if indicator 10 is conditioned by control level indicators in columns 9-17, 
on (lines 02 and 03). Thus, the operation in line 03 occurs before the operation 


in line 02, The operation in line 02 is done on the first 
record of the new control group indicated by 25, whereas 
the operation in line 03 is a total operation done for all 
records of the previous control group. 
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Figure 111. Conditioning Calculations (Control Level Indicators) 
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COLUMNS 18-27 (FACTOR 1) AND COLUMNS 33-42 
(FACTOR 2) 


Use columns 18-27 and 33-42 to name the fields or to give 
the actual data (literals) on which an operation is to be 
performed. The entries you can use are: 

1. The name of any field that has been defined. 

2. Any alphameric or numeric literal. 


3. Any subroutine, table array name, or array element. 


4. Any date field names (UDATE, UMONTH, UDAY, 
UYEAR). 


= 


The special names, PAGE, PAGE1, or PAGE2. 


6. A label fora TAG, BEGSR, or ENDSR operation 
(Factor 1 only). A label for a GOTO or EXSR oper- 
ation (Factor 2 only). 


7. A filename for a CHAIN, DEBUG, DSPLY, READ, 
or FORCE operation (Factor 2 only). 


An entry in Factor 1 must begin in column 18; an entry in 
Factor 2 must begin in column 33. 


The entries you use depends upon the operation you are 
describing. Some operations need entries in both sets of 
columns, some need entries in only one, and some need no 
entries at all. See Columns 28-32 in this chapter for more 
information on operation codes. If you are naming a sub- 
routine, see Subroutines in this chapter. 
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Literals 


A literal is the actual data used in an operation rather than 
the field name representing that data. A literal may be 
either alphameric or numeric. 


Consider the following rules when using an alphameric 
literal (Figure 112, insert A): 

1. Any combination of characters may be used in an 
alphameric literal. Blanks are also valid. 


Alphameric literals must be enclosed by apostrophes 


(). 


he ¢ literal is 
eight characters excluding the two enclosing 
apostrophes. 


The maximum length of an alphameri 


An apostrophe required as part of a literal is repre- 
sented by two apostrophes. For example, the literal 
“O’CLOCK’ would be written as ‘O” CLOCK’. 


Alphameric literals may not be used for arithmetic 
operations. 
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Figure 112. Alphameric and Numeric Literals 
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Consider the following rules when using a numeric literal 
(Figure 112, insert B): 


1. A numeric literal consists of any combination of the 
digits 0-9. A decimal point or sign may also be 
included. 


2. The maximum total length of a literal is 10 char- 
acters including signs and decimal points. 


3. Blanks may not appear in the literal. 


4. The sign, if present, must be the leftmost character. 
An unsigned literal is treated as a positive number. 


5. Numeric literals must not be enclosed by 
apostrophes (’). 


6. Numeric literals are used in the same way as a nu- 
meric field. 


7. Decimal comma or decimal period is controlled by 
the Inverted Print option on the Control Record 
(see Chapter 3, Column 21). 


COLUMNS 28-32 (OPERATION) 


Use columns 28-32 to specify the kind of operation to be 
performed using Factor 1, Factor 2, and/or the Result 
Field and resulting indicators. The operation code must 
begin in column 28. A special set of operation codes have 
been defined which you must use to indicate the type of 
operation desired. Every operation code used requires cer- 
tain entries on the same specification line. See Appendix 
F, Table E-1 for a summary of all possible codes and the 
additional entries required for each code. For further 
information on the operations that can be performed, see 
Operation Codes in this chapter. 


The operations are performed in the order specified on 
the Calculation Sheet. 


All operations conditioned by contro! level indicators in 
columns 7-8 must follow those that are not conditioned by 
control level indicators. All operations which are part of a 
subroutine (SR in column 7-8) must follow all other calcu- 
lations in a program. 


COLUMNS 43-48 (RESULT FIELD) 


Entry Explanation 
Result Field, table, array, or array element. 
Field 


Use columns 43-48 to name the field, table, array, or array 
element that will hold the result of the operation specified 
in columns 28-32. You may use the name of a field, table, 
array, Or array element that has already been defined either 
on extension specifications, input specifications, or else- 
where in the calculation specifications. (See Tables and 
Arrays in Chapter 5 for more information on arrays.) 


Otherwise you may define a new field by entering a field 
name that has not alreayd been used. Any field you define 
here will be created at the time the program is compiled. 
The field you name may be either numeric or alphameric. 
A field used in arithmetic operations (see Columns 28-32 
in this chapter) or numeric compare, or a field edited or 
zero suppressed in output-format specifications must be 
numeric. 


The result field name must begin with an alphabetic char- 
acter in column 43 and contain no blanks or special char- 
acters. 


If you are entering the name of a field that has not been 
defined elsewhere, columns 49-52 should also contain 
entries. 


If you are entering the name of a field that has been defined, 


entries in columns 49-52 are not necessary but if specified 
must agree with the previous definition of that field. 


COLUMNS 49-51 (FIELD LENGTH) 


Entry Explanation 

Blank Alphameric or numeric field described 
elsewhere. 

1-256 Result Field length. 


Use columns 49-51 to give the result field length for any 
result field. If you are naming a new field (one that has 
not been used before), you must consider the form your 
data will be in and the length it will have after the opera- 
tion has been performed. 
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Whenever the field length is specified for a result field, you 
should be careful to make the result field long enough to 
hold the largest possible result. If the result field is too 
small, significant digits may be lost. For example, you may 
wish to add field A (eight characters long, four decimal 
places) to field B (ten characters long, six decimal posi- 
tions). Fields A and B have four characters to the left of 
the decimal, but the result field, field C, must allow for 
more characters to the left of the decimal. 


9999.0000 
0001.111111 
10000.111111 


Field A 
Field B 
Field C (result field) 


In this case, field C was defined as 11 characters long with 
six decimal positions. Some of the numbers to the right of 
the decimal could be lost without changing the meaning of 
the result greatly. However, if field C were defined as 10 
characters long with six decimal positions, a significant digit 
to the left of the decimal would be lost. Field C in this case 
would be 0000.111111 and the meaning of the result has 
greatly changed. 


Numeric fields have a maximum length of 15 characters. 
Alphameric fields may be up to 256 characters long. You 
may indicate the length of a field that has been previously 
described either in the input specifications or in calculation 
specifications. However, if you do so, you must specify 
the same field length and number of decimal positions as 
was previously given to the field. 


If the result field contains the name of a table or array, an 


entry in these columns is optional. If used, it must agree 
with the length described in the extension specifications. 


COLUMN 52 (DECIMAL POSITIONS) 


Entry Explanation 

Blank Alphameric or numeric field described 
elsewhere. 

0-9 Number of decimal places in a numeric 


result field. 


Use column 52 to indicate the number of positions to the 
right of the decimal in a numeric result field. If the 
numeric result field contains no decimal positions, enter 
zero. 


This column must be left blank if the result field is alpha- 
meric. it may aiso be ieft biank if the resuit fieid is 
numeric but has been previously described in the extension, 
input, or calculation specifications. In this case, Field 
Length (columns 49-51) must also be blank. 
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The number of decimal positions must never be greater 
than the length of the field. The number may, however, 
be larger or smaller than the number of decimal positions 
that actually result from an operation. If the number of 
decimal positions specified is greater than the number of 
decimal places that actually result from an operation, zeros 
are filled in to the right. If the number specified is smaller 
than the number that results from the operation, the right- 
most digits are dropped. 


Figure 113 shows how the contents of a result field after a 
multiplication operation may change according to the Deci- 
mal Positions (column 52) and Field Length (columns 
49-51) specifications. 


COLUMN 53 (HALF ADJUST) 


Entry Explanation 
Blank Do not half adjust. 
H Half adjust. 


Use column 53 to indicate that the contents of the result 
field are to be half adjusted (rounded). In essence, half 
adjusting is done by adding a 5 (J if the field is negative) 
to the number at the right of the last decimal position 
specified for this field. All decimal positions to the right 
of the position specified for that field are then dropped 
(see Example). 


The half adjust entry is allowed only with arithmetic oper- 
ations (see Columns 28-32 in this chapter). This entry. 
cannot be specified for an MVR operation, or for a DIV 
operation followed by an MVR operation. 


Example 


Figure 114 shows a result field being half adjusted to two 
decimal positions (2 in column 52 and H in column 53). 
The result field is half adjusted as follows: 


35.7968 — Result of an add operation. 


5 Add 5 to the number at the right of the 
last decimal position specified. 


35.8018 Drop all decimal positions to the right at 
the position specified. 
35.80 Result after half adjusting 


Multiplication: 98.76 x 1.234 = 121.86984 * 
Decimal Positions 
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Figure 113. Result Field Contents Based on Various Field Length and Decimal Position Specifications 
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COLUMNS 54-59 (RESULTING INDICATORS) 


Entry Explanation 

01-99 Any numeric indicator. 

H1-H9 Any halt indicator. 

L1-L9 Any control level indicator. 

LR Last record indicator. 

OA-OG, Any overflow indicator (if specified on 
OV File Description Sheet). 


Columns 54-59 are used for four different purposes: 


Ie To test the value of the result field after an arith- 
metic Operation. 


2 To check the outcome of a CHAIN, LOKUP, COMP, 
TESTB, or TESTZ operation (see Operation Codes, 
in this chapter). 


3. To specify which indicators to SETON or SETOF. 


4. To indicate end of file for the READ operation code. 


Test Results 


By entering an indicator in columns 54-59, you specify 
that the result field is to be tested after the operation speci- 
fied in columns 28-32 has been performed. (Normally, 
only indicators 01-99 and H1-H9 are used for testing.) The 
indicator specified is turned on only if the result field satis- 
fies the condition being tested for (see Examples, exe IES 
i-3). This indicator may then be used to condition follow- 
ing calculations or output operations (see Examples, 
Example 4). If the same indicator is used to test the result 
of more than one operation, the operation last performed 
determines the setting of the indicator. 


Notice that three fields (columns 54-55, 56-57, and 58-59) 
can be used for this purpose. Each field is used to test for 
different conditions: columns 54-55, plus or high; columns 
56-57, minus or low; columns 58-59, zero or equal. You 
can test for more than one of the conditions. 
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Bey {Dhae ay Uieh ! a 
Columns 54-55 (£tuS OF 11iZri;- Place 


columns when testing to find: 


an indicator in these 
1. Ifthe Result Field in an arithmetic operation is 
positive. 


2. If Factor 1 is higher than Factor 2 in a compare 
Operation. 


3. If Factor 2 is higher than Factor 1 ina table or array 
lookup operation. 


4, The results of a CHAIN (not found), TESTB (all 
0’s), or TESTZ (C zone) operation. 


Columns 56-57 (Minus or Low): Place an indicator in 
these columns when testing the Result Fieid to find: 


1. ‘If the Result Field in an arithmetic operation is 
negative. 


2. If Factor 1 is lower than Factor 2 in a compare 
operation. 


3. If Factor 2 is lower than Factor 1 in a table or 
array lookup operation. 


4. The results of a TESTB (mixed), or TESTZ (D zone) 
operation. 


Columns 58-59 (Zero or Equal): Place an indicator in 
these columns when testing the Result Field to find: 


1. Ifthe Result Field in an arithmetic operation is zero. 


2. if Factor i is equal to Factor 2 in a compare opera- 


3. If Factor 2 is equal to Factor 1 ina table or array 
lookup operation. 


4. The results of a READ (end of file), TESTB (all 
ones), or TESTZ (not C or D zone) operation. 


Setting Indicators 


You may enter the indicators that you want to turn on or 
off by the operations SETON or SETOF. See Operation 
Codes, Setting Indicators in this chapter for more informa- 
tion on these operations. Any indicators to be turned on 
or off by the SETON or SETOF operations are specified 
from left to right in the three resulting indicators fields 
(Figure 115). Column headings in columns 54-59 have no 
meaning for SETON, or SETOF operations. 


01-99 (Field Indicators, Record Identifying Indicators, 
Resulting Indicators, and Conditioning Indicators) 


You may assign any of the numbers 01-99 to indicate such 
things as: 


1. The type of record read (see Columns 19-20 in 
Chapter 7). 

2. The status (plus, minus, zero/blank) of an input field 
(see Columns 65-70 in Chapter 7). 

3. The results of a calculation operation. See Examples, 


Example I and Example 2. 


® 


international Business Machines Corporation 


Any of these indicators which you have assigned may then 
also be used to: 


1. Condition calculation operations (see Columns 9-17 
in this chapter). 

2. Condition output operations (see Columns 23-31 in 
Chapter 9). 

3. Establish field record relations (see Columns 63-64 


in Chapter 7). 


Indicators reflect only one condition at a time. When one 
indicator is used to reflect two or more conditions, it is 
always set to reflect the condition in the last operation per- 
formed. Therefore, it is not usual practice to assign the 
same number as a field indicator and/or resulting indicator 
more than once in a program. When you use such an indi- 
cator to condition other operations, you may get wrong 
results since the indicator may not always reflect the con- 
dition you think it does (see Examples, Example 3). 


If any indicator 01-99 is set on or off by the operation 
codes SETON or SETOF, it remains on or off until an in- 
struction in a specification line containing that same indi- 
cator is performed. The indicator is then set to reflect a 
condition from the operation performed. 
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H1-H9 (Halt Indicators) Examples 


You may use any halt indicator to: Example 1: Figure 116, insert A shows that resulting indi- 
cator 10 has been assigned to signal when a minus condition 
1. Cause the program to stop after finding an occurs. Indicator 10 turns on if the result after the sub- 
unacceptable condition. traction operation has been performed is negative. It then 
remains on (or off depending upon the result) until the 
2. Condition calculation or output operations that are same operation is performed again. It is always set to 
not to be performed when such an unacceptable reflect the result of the subtraction operation each time it 
condition has occurred. This is necessary because all is done. 


calculation and detail output operations are still 
performed for the record that caused the error before 


processing stops. Example 2: Figure 116, insert B shows the same operation 
as insert A. However, this operation is conditioned by 
3. Establish field record relations (see Columns 63-64 indicator 01. The operation is done only when indicator 
in Chapter 7). Ol is on. Resulting indicator 10 is set on only when the 


result of the operation is negative. 


Using the same indicator to test for two or more error 
conditions is not usually good practice (see Examples, 


Example 5). 
Example 3: Figure 116, insert C shows the use of the 
Any halt indicator assigned to test for zero or blank is off same indicator (10) in two lines. The status of this indica- 
at the beginning of the program. tor reflects the result of each operation. For instance, 
indicator 10 turns on after the operation in line 05 has been 
Note: Ifa halt indicator stops processing, it is turned off done if the result of the operation is negative. However, if 
when the system is restarted. If more than one halt indica- the result of the operation in line 07 is positive or zero, 
tor turns on during a program cycle, each halt indicator indicator 10 turns off. It is then reset only when the opera- 
must be considered separately. Every time the program is tion in line 05 is done again. 


restarted, only one halt indicator is bypassed. 
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Example 4: Figure 117 shows the entry of two indicators 
that are used to test for the different conditions in a com- 
pare operation. These indicators are used to condition the 
calculations which might be performed for a payroll job. 
Indicator 10 is turned on if the hours worked (HRSWKD) 
are greater than 40 and is then used to condition all opera- 
tions necessary to find overtime pay. Indicator 20 is 


IB M International Business Machines Corporation 
* 


turned on if HRSWKD is less than 40. It is also used to 
condition other operations. In line 03 if 20 is not on (the 
employee worked 40 or more hours), regular pay based on 
a 40 hour week is calculated. In line 06 if 20 is on 
(employee worked less than 40 hours), pay based on less 
than a 40 hour week is calculated. 
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Example 5: Figure 118, insert A shows the use of H1 in COLUMNS 60-74 (COMMENTS) 
two different specification lines. If the result of the calcu- 


lation operation in line 01 is negative, H1 turns on. This is Enter in columns 60-74 any meaningful information you 
an error condition. Processing continues, however, until wish. The comments you use should help you understand 
this program cycle is completed. Thus, the operation in or remember what you are doing on each specification line. 
line 03 is done. If the result of this subtraction operation Comments are not instructions to the RPG II program. 

is positive, H1 turns off. The program does not stop be- They serve only as a means of documenting your program. 


cause H1 is not on, even though an error condition has 
been found in line O1. 


The use of two different halt indicators as shown in COLUMNS 75-80 (PROGRAM IDENTIFICATION) 
Figure 118, insert B does not allow a situation like the 
one just described to occur. See Chapter 2. 
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This operation is not conditioned. 

(A) It will always be done even when 
the halt indicator is on to signal 
an error condition. 
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Operation Codes 


You are able to perform many different types of opera- 
tions on your data using the RPG II language. Special 
codes have been set up which indicate the operation to be 
performed, Usually these are just abbreviations of the name 
of the operation. You must use these codes to specify the 
operation to be performed. 


Operations may be divided into nine categories; all codes 
in each category are explained in this section. Examples 
are also given for many codes. Appendix E, Table E-1 pro- 
vides a summary of the operation codes. It also shows 
what other specifications need to be used with each code. 


ARITHMETIC OPERATIONS 


Arithmetic operations can be performed only on numeric 
fields or literals. The result field must also be numeric. For 
arithmetic operations in which all three fields are used: 


1, Factor 1, Factor 2, and the Result Field may all be 
different fields. 


2. Factor 1, Factor 2, and the Result Field may all be 
the same field. 


3. Factor 1 and Factor 2 may be the same field but 
different from the Result Field. 


4. Either Factor 1 or Factor 2 may be the same as the 
Result Field. 


The length of any field involved in an arithmetic operation 
cannot exceed 15 characters. If the result exceeds 15 char- 
acters, characters may be dropped from either or both ends 
depending on the location of the decimal point. The 
results of all operations are signed (+,-). Any data placed 


in the result field replaces the data that was there previously. 


Add (ADD) 


Factor 2 is added to Factor 1. The sum is placed in the 
Result Field. Factor 1 and Factor 2 are not changed by 
the operation. 


Zero and Add (Z-ADD) 


Factor 2 is added to a field of zeros, and the sum is placed 
in the Result Field. 


Subtract (SUB) 


Factor 2 is subtracted from Factor 1. The difference is 
placed in the Result Field. Factor 1 and Factor 2 are not 
changed by the operation. 


Note: Subtracting two fields which are the same is a 
method of setting the result field to zero. 


Zero and Subtract (Z-SUB) 


Factor 2 is subtracted from a field of zeros. The difference 
is placed in the Result Field. This actually places the nega- 
tive of Factor 2 in the Result Field. This operation can be 
used to change the sign of a field. Factor 1 is not used. 


Multiply (MULT) 


Factor 1 is multiplied by Factor 2. The product is then 
placed in the Result Field. Factor 1 and Factor 2 are not 
changed. When you use (as a factor) a field which is 
described as the Result Field, you must be sure the Result 
Field is large enough to hold the product. 


Divide (DIV) 


Factor 1 (dividend) is divided by Factor 2 (divisor). The 
result (quotient) is placed in the Result Field. Factor 1 
and Factor 2 are not changed. 


If Factor 1 is 0, the result of the divide operation will be 

0. Factor 2 cannot be 0. If it is, the job stops immediately 
and a halt code is displayed (see RPG IJ Halt Procedures 

in Appendix A). You may continue processing, however, 
by pressing HALT/RESET on the processing unit. When 
processing is continued, the result and remainder are set to 
zero. 
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Any remainder resulting from the divide operation is lost 
unless the move remainder operation is specified as the next 
operation. If move remainder is the next operation, the 
result of the divide operation cannot be half adjusted 
(rounded). 


Move Remainder (MVR) 


This operation moves the remainder from the previous 
divide operation to a separate field named under Result 
Field, Factor 1 and Factor 2 must not be used. This oper- 


ation must immediately follow the divide operation and 

| should be conditioned by the same indicators. Half adjust 
cannot be specified sath this operation. The maximum 
length of the remainder is 15, including decimal positions. 
The number of significant decimal positions is the greater 


of: 


1. The number of decimal positions in Factor 1 of the 
previous divide operation. 


N 


The sum of the decimal positions in Factor 2 and the 
Result Field of the previous divide operation. 


The maximum whole number positions in the remainder is 
equal to the whole number positions in Factor 2 of the 


previous divide operation. 


Figure 119 shows the use of the move remainder operation. 


Square Root (SORT) 


This operation derives the square root of the field named in 
Factor 2. The square root of Factor 2 is placed in the 
Result Field. Factor 1 is not used. 


Factor 2 and the Result Field can be numeric fields up to 
fifteen digits long overall, including up to nine decimal 
places. Figure 120 is a table which can be used to deter- 
mine Result Field contents for various field lengths and 
decimal positions. 


For every digit left of the decimal place in the Result Field, 
there should be two digits left of the decimal! place in 
Factor 2; for every digit right of the decimal place in the 
Result Field, there should be two digits right of the decimal 
place in Factor 2. 


A whole array can be used in a SQRT operation if Factor 2 
and Result Field contain array names. In this case, the 
square root of each element of the array named in Factor 
2 will be palced in the corresponding element of the array 
named in the Result Field. 


When using the SQRT operation, remember: 
1. The Resuit Field (root) is automatically half-adjusted. 


2. The Result Field length must be greater than or equal 
to the decimal positions entry. 


3. Factor 2 cannot be a negative number. A negative 
number causes a halt (see RPG IJ Halt Procedures 
in Appendix A). 
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LEPC HS pte | 





Field Length 








151413121110 9 8 7 
9/0000 6 3 # 
81000006 
710000006 
6/0000000 
Decimai 510 000000 
Positions 4| 0000000 
3/0000000 
210000000 
110000000 
0f0000000 








Numbers in the 
table represent 
the square root 
of 4071.87. 


Notes: 1. Shaded areas are decimal positions. 

2. To find the Result Field contents for any 
field length and decimal positions, read 
all digits on the desired decimal positions 
line which are below and to the right of 
the desired field length. For example: 


Field length = 8; decimal positions = 4 


Result Field contents = 0063.8112 


Figure 120. Result Field Contents for Various Field Lengths and Decimal Positions 


Crossfoot (XFOOT) 


This operation is used only on arrays with numeric elements. 


It adds all the elements of the array together and puts the 
sum into a separate field specified as the Result Field. 
Factor 1 is not used. Factor 2 contains the name of the 
array. You can half-adjust the total in the Result Field and 
use resulting indicators if you wish. 


If the Result Field is an element of the same array used in 
Factor 2, the value of that element prior to the XFOOT 
operation is used in arriving at a total. 


MOVE OPERATIONS 


Move operations move part or all of Factor 2 to the Result 
Field. Factor 2 remains unchanged. 


Factor 1 is not used in any move operations. It must 
always be blank. No resulting indicators may be used. 
Numeric fields may be changed to alphameric fields and 
alphameric fields may be changed to numeric fields by the 
move operations. To change a numeric field to an alpha- 
meric field, place the name of the numeric field in Factor 
2 and use an alphameric result field. To change an alpha- 
meric field to a numeric field, place the name of the alpha- 
meric field in Factor 2 and use a numeric result field. 


When move operations are specified to move data into 
numeric fields, decimal positions are ignored. For example, 
if the data 1.00 is moved into a numeric field with one deci- 
mal position, the result is 10.0. 
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Move (MOVE) 


This operation causes characters from Factor 2 to be 
moved to the rightmost positions in the result field. Mov- 
ing starts with the rightmost character. 


If Factor 2 is longer than the Result Field, the excess left- 
most characters of Factor 2 are not moved. If the Result 
Field is longer than Factor 2, the characters to the left of 
the data just moved in are unchanged. 
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An alphameric field or constant may be changed into a 
numeric field by moving it into a numeric field. When this 
is specified, the digit portion of each character is converted 
to its corresponding numeric character and then moved to 
the result field. Blanks are transferred as zeros. However, 
the zone portion of the rightmost alphameric character is 
converted to a corresponding sign and is moved to the 
rightmost position of the numeric field where it becomes 
the sign of the field. A numeric field may also be changed 
into an alphameric field by moving it into an alphameric 
field. All digits are transferred. The digit and zone of the 
rightmost character are transferred. The MOVE operation 
is summarized in Figure 121. 


Result Field Larger than Factor 2 


Factor 2 Result Field 


Before MOVE Operation 
+ 


PH, 4,S,N, Alphameric 1,2,3;4,5,6,7 8 (4, 


; a 
After MOVE Operation \ 111:2,3,4,7,8 5442 ,5, 


ee 
1152,3,4,P,H 41S iN, 


WPiHi4i:S Ny 


Result Field Smaller than Factor 2 


Factor 2 Result Field 


Before MOVE Operation 


Numeric or Alphameric 
(4 = letter D) 


Numeric Result Field 


(5 = Jetter N) 


Alphameric Result Field 


+ 


Alphameric .5,:6,7,8,4, 


tA,;C ;E;GyP; H,)4;S), Ny 
Sg 


After MOVE Operation 


Numeric or Alphameric 
(4 = letter D) 


Numeric Result Field 


(5 = letter N) 
tA,C jE, G, Py H,;4iS,N, 


Alphameric Result Field 


Result Field and Factor 2 Same Length 


Factor 2 Result Field 


Before MOVE Operation 
+ umeric or Alphameric 


Alphameric 151617; 8; 4) (4 = letter D) 


Pi Hi 4iSiNy 
i 


After MOVE Operation Numeric Result Field 


(5 = letter N) 
iP; H14;:S,N,y 


Alphameric Result Field 


Result Field and Factor 2 Same Length 


Factor 2 Result Field 


Before MOVE Operation 


Numeric Alphameric 


Numeric Result Field 
(5 = letter N) 
Alphameric Result Field 


After MOVE Operation 





Figure 121. MOVE Operations 
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Move Left (MOVEL) 


This operation causes characters from Factor 2 to be 
moved to the leftmost position in the Result Field. Moving 
begins with the leftmost character. 


If Factor 2 is longer than the Result Field, the excess right- 
most characters of Factor 2 are not moved. If the Result 
Field is longer than Factor 2, the characters to the right of 
the data just moved in are unchanged. In this case the sign 
of a numeric field is not changed either. 


An alphameric field or constant may be changed into a 
numeric field by moving it into a numeric field. When this 
is specified, the digit portion of each character is converted 
to its corresponding numeric character and then moved into 
the result field. 


Blanks are transferred as zeros. If the rightmost character 
is moved, the zone is also converted and used as the sign of 
the field. When the rightmost character is not transferred, 
the zone is, nevertheless, still transferred and used as the 
sign of the result field. 


A numeric field may also be changed into an alphameric 
field by moving it into an alphameric field. All digits are 
transferred. Both digit and zone portions of the rightmost 
character are transferred if that character is to be moved. 
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I 


A summary of rules for MOVEL transfers are as follows 
(see also Figure 122): 


Factor 2 is the same length as the Result Field. 


a. 


b. 


Qu 


Factor 2 and Result Field numeric: the sign is 
moved with the rightmost digit. 

Factor 2 numeric, Result Field alphameric: the 
sign is moved with the rightmost digit. Only 
digits are moved for other positions. 


. Factor 2 alphameric, Result Field numeric: zone 


and digit portions of rightmost digit are moved. 
Zones in other positions are not moved. 


. Factor 2 and Result Field alphameric: all char- 


acters are moved. 


Factor 2 is longer than the Result Field. 


. Factor 2 and Result Field numeric: the sign from 


the rightmost position of factor 2 is moved over 
the rightmost digit of the result field. 


. Factor 2 numeric, Result Field alphameric: the 


Result Field contains only digits. 


. Factor 2 alphameric, Result Field numeric: zone 


from the rightmost character of Factor 2 is moved 
over the rightmost digit of the Result Field; other 
Result Field positions contain only digits. 


. Factor 2 and Result Field alphameric: only the 


number of characters needed to fill the Result 
Field are moved. 


Factor 2 is shorter than the Result Field. 


. Factor 2 either numeric or alphameric, Result 


Field numeric: digit portion of Factor 2 replaces 
the contents of the leftmost positions in the 
Result Field. The sign in the rightmost position 
of the Result Field is not changed. 


. Factor 2 either numeric or alphameric, Resuit 


Field alphameric: characters in Factor 2 replace 
the equivalent number of leftmost positions in 
the Result Field. No change is made in the zone 
of the rightmost position of the Result Field. 


Factor 2 Factor 2 and Result Field Same Length Result Field 











+ 
7,84 2 5, Before MOVEL Operation [5 1647.81 44 
a. Numeric Numeric 
L784 2 15, After MOVEL Operation 7.8.42.5 
jpop Pin 
1718.4 2 15) Before MOVEL 1A, K, T1410, 
b. Numeric _ Alphameric 
.718.412,5, (5= letter N) After MOVEL 17,8,4,2,N, 
Buc, BS eee a Se ee ee a ee ee Sr ee oo ee Se Se re ot ee Frccccco 
Pi H,4,S iN Before MOVEL 15 ,6,7;8,4, 
c. Alphameric ot Numeric 
P,H,4,S ,Ny After MOVEL 7 ,8,4,2,5, 
Py H,4)S IN, Before MOVEL Ai:K,T,4,D 
d. Alphameric Alphameric 
P,H,4,S,N After MOVEL P,H,4,S,N 


















Factor 2 Longer Than Result Field 





Factor 2 Result Field 


- + 

10; 0,0 ;0 ;0 48 44 (2 | 5, Before MOVEL Operation 15 :657,8) 4; 

a. Numeric = 7 Numeric 
10; 0,0 ,0 10 38 14 32 15) After MOVEL Operation 10-0,0,0,0, 
19, 0 ;3 3117 18 14 12 15, Before MOVEL Agk iT 440 

b. Numeric oe Alphameric 
19: 073 1147 38 14 (215, After MOVEL 910 .3,1,7 

A AS Bp ca Hanh este ae Ry NE Ge NM gene RCE hd, yal oo BBN en tN wD RN tay Metts ech gale en kag yoccc cco 
(Bi RyW AC YX 1H 4 1S WN, Before MOVEL 5 6 ,7,8.4, 

c. Alphameric Numeric 
1B, RiW,C 1X 1H 14, SiNy After MOVEL 129 ;6,3.7, 
1B, RW jC {XH 14 SIN, Before MOVEL A, KiT14 jD, 

d. Alphameric Alphameric 
1B, R«WyC 1X 1H 14 (SiN, After MOVEL B RWC (Xx 






Factor 2 Shorter Than Result Field 





Factor 2 Result Field 


+ 
171 8 14 12 45, Before MOVEL Operation 11.3,0,9 4,3,2,1,0, 
Numeric _ + Numeric 
17, 8 14 12,5 After MOVEL Operation (7.8 14 ,2,;5 43,2 11,0, 
$2.08 OS See eS ee Se Sa Sa ee ee a Se ee a Sa are re fo Soe 
ici PT SIN, Before MOVEL 1113 ,0,9,4,3,2,1,0; 
Alphameric _ Numeric 
1c, PyT 5 Ny After MOVEL 1317,3,5,5,3,2,1 0, 
17,814 3215, Before MOVEL 1BiR,WiC,X,H,4,S8,A, 
Numeric _ Alphameric 
b 17; 814 42,5, After MOVEL i718 .442,N,;H,4,S,A, 
iC, P»T SiN, Before MOVEL 1B, R,;W,C;X ,H,4,SjA, 
Alphameric Alphameric 
ici Py T SN; After MOVEL iC ,.P,T1:5 iN iH ,41S Ay 


Figure 122. MOVEL Operations 
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MOVE ZONE OPERATIONS 


These operations are used only to move the zone portion 
of a character. There are four varieties of the move zone 
operation (Figure 123). 


Note: Generally, whenever the word high is used, the field 
involved must be alphameric; whenever low is used, the 
field involved may be either alphameric or numeric. 








Alphameric Factor 2 
| 
pas \ MLLZO 
Alphameric [" l | | | ’ | Result Field 
Numeric Factor 2 
MLHZO MLLZO 


Aiphameric | | | | | | | | IY, | Result Field 


Alphameric Factor 2 
MLLZO 
MHLZO 
Numeric | | | | | | | i | Result Field 
Numeric | | | | | i | | | | | Factor 2 


| | MLLZO 
Numeric | | | i | | | | i | Result Field 


wet wen eet e st ewe 


Figure 123. Function of Move Zone Operations 
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Move High to High Zone (MHHZO) 


This operation moves the zone from the leftmost position 
of Factor 2 to the leftmost position of the Result Field. 
Factor 2 and the Result Field must be alphameric. 


Move High to Low Zone (MHLZO) 


This operation moves the zone from the leftmost position 
of Factor 2 to the rightmost position of the Result Field. 
Factor 2 can be only alphameric. The Result Field may be 
either alphameric or numeric. 


Move Low to Low Zone (MLLZO) 


This operation moves the zone from the rightmost position 
of Factor 2 to the rightmost position of the Result Field. 
Factor 2 and the Result Field may be either alphameric or 
numeric. 


Move Low to High Zone (MLHZO) 


This operation moves the zone from the rightmost position 
of Factor 2 to the leftmost position of the Result Field. 
Factor 2 can be numeric or alphameric, but the Result Field 
can only be alphameric. 


COMPARE AND TESTING OPERATIONS 


These operations test fields for certain conditions. The 
result of the test is shown by the resulting indicators 
assigned in columns 54-59, No fields are changed by these 
operations. 


Compare (COMP) 


This operation causes Factor 1 to be compared with Factor 
2. Asa result of the compare, indicators are turned on as 
follows: 


High —‘ Factor 1 is greater than Factor 2. 
Low Factor 1 is less than Factor 2. 
Equal Factor 1 equals Factor 2. 


Factor 1 and Factor 2 must either be both alphameric or 
both numeric. 


The fields are automatically aligned before they are com- 
pared. If the fields are alphameric, they are aligned to their 
leftmost character. If one is shorter, the unused positions 
are filled with blanks (Figure 124). 


If the fields which are to be compared are numeric, they 
are aligned according to the decimal point. Any missing 
digits are filled in with zeros (Figure 125). The maximum 
field length for numeric fields which are to be compared is 
15 digits. 


If an alternate collating sequence is defined, alphameric 
fields are compared according to that sequence. Entire 
arrays cannot be used with the compare operation. 


Figure 126 shows some specifications for compare opera- 
tions. In specification line 01, the contents of the field 
SLS67 (1967 sales) are compared with the contents of 
SLS68. If 1967 sales exceed 1968 sales, resulting indicator 
21 turns on; if they are less, resulting indicator 26 turns on; 
if the two years had equal sales, 30 turns on. In line 03 the 
alphameric constant OCTOBER is compared against the con- 
tents of the field named MONTH (which must also be 
defined as alphameric). If the MONTH field does not con- 
tain the word OCTOBER, indicator 13 turns on; if it does, 
indicator 15 turns on after the compare operation. In line 
05 the contents of the field named GRSPAY (which must 
be defined as numeric) is decimal-aligned with numeric 


iC ,C,C CC, C)) 

Equai Length 
Alphameric Fields 
C1C CC CV 


Unequal Length 


c,c,C,C,C,C 
Alphameric Fields 


(CCC boyd dy) 


Short martes 
Field 00 


Figure 124. Comparison of Alphameric Fields 


11,5; 6 17,9) 5) 
Equal Length 


Numeric Fields 


211015, 746, 


Short 
Field 


a 


0,0,1;,7).5;,6 
\ Unequal Length 


( Numeric Fields 
2,5), 4;,3)-2,0,) 


ART. SI7T6A 


Figure 125. Comparison of Numeric Fields 
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Figure 126. Compare Operations 
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constant 1250.00 and then compared to it. If the value in 
field GRSPAY is greater than or equal to 1250.00, indicator 
04 turns on; if its value is less than 1250.00, indicator 05 
turns on. In line 07 the contents of the field NETPAY 
(which must be defined as numeric) is decimal-aligned with 
numeric constant 0 and then compared to it. If NETPAY 

is greater than zero, indicator H1 remains off after the com- 
pare operation. If NETPAY is zero or negative, indicator 
H1 turns on. 


Test Zone (TESTZ) 


This operation tests the zone of the leftmost character in 
the result field (see Character Structure under Columns 
21-41 in Chapter 4). The Result Field must be alphameric 
since this operation can be done only on alphameric char- 
acters. Resulting indicators are used to determine the 
results of the test. The zone portion of characters & and 
A-I causes the plus indicator to turn on. The zone portion 
of the characters } (bracket), - (minus), and J-R causes 
the minus indicator to turn on. All other characters, when 
tested, cause the blank indicator to turn on. Factor 1 and 
Factor 2 are not used in this operation. 
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BINARY FIELD OPERATIONS 


Three operation codes, BITON, BITOF, and TESTB, are 
provided to set and test individual bits. The individual bits 
can be used as switches in a program. 


In binary field operations, the operation code, BITON, 
BITOF, or TESTB, must appear in columns 28-32. Factor 
2 can contain: 


@ Bit numbers 0-7: One or more bits (maximum of eight) 
may be set on, set off, or tested per operation. The bits 
are numbered from left to right and are enclosed in 
apostrophes. The order of specification of the bits is 
not restricted. For example, to specify the first bit in a 
field, enter ‘0’ in Factor 2 (in columns 33-35). To speci- 
by bits 0, 2, and 5, enter ‘025’ in Factor 2 (in columns 


33-37). Bits not specified in Factor 2 are not changed. 


e@ Field Name: The name of a one-position, alphameric 


field or table or array element can be entered. In this 
case, the bits which are on in the field or array element 
are set on, set off, or tested in the Result Field; bits 
which are not on are not affected. 


Any field named in Factor 2 or the Result Field must 
be a one-position, alphameric field (no entries in the deci- 
mal positions columns on the Input or Calculation Sheet). 


Set Bit On (BITON) 


This operation code causes bits identified in Factor 2 to 
turn on (set to one) in a field named as the Result Field. 
The operation code BITON must appear in columns 28-32. 
Conditioning indicators can be used in columns 7-17. Any 
entry under Field Length must be 7. See the preceding 
discussion in Binary Field Operations. 


Factor 1, Decimal Positions, Half-Adjust, and Resulting 
Indicators are not used with the BITON operation. See 
Figure 127 for a summary of BITON operations. 
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The following operation uses a one-position alphameric field as a source of bits. Any bits that are on 
in the field named ALPHA will cause corresponding bits to be set on in the field named BITS. If at Pett a 


bits 5 and 7 are on in the field named ALPHA, the BITON operation will set bits 5 and 7 on in the peepee Pty 
field named BITS. 


Hap 


The following operations use a one-position alphameric array element as either a source of bits or 
as a result field, or both. In the first operation, any bits that are on in the array element, ARR,NX 
will cause corresponding bits to be set on in the array element ARE,LZ. Poe 
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Figure 127. Set Bit On (BITON) Operations 
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Set Bit Off (BITOF) 


This operation code causes bits identified in Factor 2 to 
turn off (set to zero) in a field named as the Result Field. 


The operation code BITOF must appear in columns 28-32. 
All other specifications are the same as those for the 
BITON operation. See Figure 128 for a summary of 

BITOF operations. 
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The following operations use a one-position alphameric array element as either a source of bits ae 
or as a result field, or both. In the first operation, any bits that are on in the field named ALPHA 
will cause corresponding bits to be set off in the array element, ARR,NX. 
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Figure 128. Set Bit Off (BITOF) Operations 
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Test Bit (TESTB) @ Columns 54-55: An indicator in these columns is 
turned on if each bit specified in Factor 2 is off (0) 


This operation code causes bits identified in Factor 2 to in the Result Field. 

be tested for an on or off condition in the field named 

as the Result Field. The condition of the bits is known © Columns 56-57: An indicator in these columns is 

by resulting indicators in columns 54-59. All other speci- turned on if two or more bits were tested and found 

fications are the same as those for BITON and BITOF. to be of mixed status; that is, some bits on and other 

See Figure 129 for a summary of TESTB operations. bits off. It is the programmer’s responsibility to ensure 
that the field named in Factor 2 contains more than 

At least one resulting indicator must be used with the one bit which is on if an indicator appears in columns 

TESTB operation; as many as three can be named for one 56-57. 

operation. Two indicators may be the same for one 

TESTB operation, but not three. If Factor 2 contains © Columns 58-59: An indicator in these columns is 

bits which are all off, no resulting indicators are turned turned on if each bit specified in Factor 2 is on (1) in 

on. A resulting indicator has the following meanings for the Result Field. 


these columns: 
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Figure 129. Test Bit (TESTB) Operations (Part 1 of 2) 
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SETTING INDICATORS 4, If the halt indicators (H1-H9) are set on and not 
turned off before the detail output operations are 
These operation codes are used to turn indicators off or complete, the system stops. Processing may be 
on. Any indicator to be turned on or off is specified in continued by pressing the start key on the 
columns 54-59. The headings in the Resulting Indicators Processing Unit once for every halt indicator that 
field (Plus or High, Minus or Low, Zero or Equal) have is on. 
no meaning in these operations. When setting indicators, 
remember: 
5: Setting on or setting off a control level indicator 
1. The following indicators may not be turned on by (L1-L9) does not automatically set on the lower 
the SETON operation: 1P, MR, LO, U1-U8. control level indicators. 
2. The following indicators may not be turned off by 6. Indicators L1-L9 and the record identifying indica- 
the SETOF operation: 1P, MR, LR, LO, U1-U8. tors are always turned off after detail output oper- 
ations are completed, regardless of the previous 
3. If the LR indicator is turned on by a SETON oper- SETON or SETOF operation. 
ation which is conditioned with a control level indi- 
cator (columns 7-8 of the Calculation Sheet), 7, Whenever a new record is read, record identifying 
processing stops after all total output operations are indicators (01-99) and field indicators are set to 
finished. If it is turned on by a SETON operation reflect conditions on the new record. The setting 
not so conditioned, processing stops after the next from any previous SETON or SETOF operation 
total output operation is completed. does not apply then. 
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Figure 129. Test Bit (TESTB) Operations (Part 2 of 2) 
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Set On (SETON) 


This operation causes any indicators in columns 54-59 
to be turned on, 


Set Off (SETOF) 


BRANCHING OPERATIONS 


Operations are normally performed in the order that they 
appear on the Calculation Sheet. There may be times, 
however, when you do not want the operations performed 
in the order they are specified. For example, you may 
wish to: 


1. | Skip several operations when certain conditions 
occur. 


2s Perform certain operations for several, but not all, 
record types. 


3. Perform several operations over and over again. 


Go To (GOTO) 


This operation allows you to skip instructions by specify- 
ing some other instruction to go to (see TAG). You may 
branch to an earlier line or to a later specification line. 
However, you cannot skip from a calculation that is not 
conditioned by a control level indicator (columns 7-8) to 


calculation within a subroutine to a calculation outside of 
that subroutine, or vice versa. 


Factor 2 must contain the name of the point to which 
you wish to go. Factor 1 and the Result Field are not 
used in this operation. The GOTO operation may be 
conditioned by any indicators. If it is not conditioned, 
the operation is always done. See Examples for use of 
GOTO operations. 


Tag (TAG) 


This operation code names the point to which you are 
branching in the GOTO operation. Factor 1 contains 
this label. The name must begin in column 18. The 
same label may not be used for more than one TAG 
instruction. 


Factor 2 and the Result Field are not used. No indica- 
tors may be entered in columns 9-17 for a TAG instruc- 
tion. Control level indicators may be used, however, if 
branching is to occur at total time. See Examples for use 
of the TAG operation. 


Examples 


Example 1: Figure 130 shows how TAG and GOTO 
may be used to skip operations on certain conditions. 


1. If the results of the subtraction in line 01 is minus 
(indicator 10 is on), a branch is taken to RTN1] 
(routine 1) named by the TAG operation code in 
line 09. Notice that both the GOTO (line 02) and 
TAG (line 09) are not conditioned by control level 
indicators, 


2. If the branch is not taken in line 02, the multiplica- 
tion in line 03 is performed. Then the branch to 
RTNI1 (line 09) must be taken because this branch 
is not conditioned by indicators. 


3. Operations in lines 10-12 are then done. If the 
operation in line 12 does not turn indicator 15 on, 
a branch is taken backwards to RTN2 (line 05). 
Operations then go in the order specified again 
from lines 06-12. Nothing is done in line 09 since 
TAG only gives a name. These same operations are 
performed again and again until 15 does turn on. 


fa 


5. When 15 is on, the branch to RTN2 is not taken. 
The TESTZ operation is then performed. If this 
operation causes 20 to turn on, a branch is taken 
to line 17 (GOTO END). If 20 is not on, the 
operation on line 16 is done. 


Calculation Specifications—Operation Codes 191 





IBM international Business Machines Corporation ll im: 
: RPG CALCULATION SPECIFICATIONS is 
1 2 75 76 77 78 79 80 


et ; Program 
a a P ra Page 
unching a identification 
Instruction ira 


Program 











Programmer 










Line Factor 1 





Form Type 
Control Levei 
{LO-L9, LR, SR) 










































































3.4 54617 TEP. 17118 19 20 21 22 23 24 25 2 
PETTY TEETEYT ttt CET sel | fete [1 ee 
folate] | | ail | | rin | PT 
ST TTR Tiree ante ++] epg td = 
eee TT rig Slats 
TELE Titi PEseoen PCC 
0/6 c 
- Some Calculation 
aaa 4 + Operations 
Cc 
Dogg Ee Edel 
ee +H : Some Calculation 
Tal fel ld fe Operations 
HEHE st LT | OT mee E 
c LID 
nag “Ur elotral lelalot HS : 
iG! |c HHH SEES Lae 
17) Ic] HHA eMart eee ICE 
|| | Ie! BARRERA R EER RR REAR UAT ERR eE 
PERE Ecce 
LLL le] | EEeRE 














Figure 130. Using GOTO and TAG (Skipping Operations) 
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Example 2: Figure 131 shows how TAG and GOTO 
may be used to eliminate coding when several operations 
have to be performed again and again. 


Assume that you wish to make 20 mailing labels for every 
customer you have. The customer’s name and address 
are found on an input card. Since you wish to write 20 


labels for each card, you have to use exception lines and 
the nneratinn FYCDPT feaoa FYUMPT Nnoeratinn in thie aan 


Lily VpVviatival avfawsi a (eee asfhbusi 2 UVpoutvtt at thhlo OULU” 


tion for further. information). 


This can be coded as shown in Figure 131, insert A. You 
have to write the EXCPT operation code for every mail- 
ing label. However, by using branching, you can code it 
all in six lines (see Figure 131, insert B). An EXCPT line 

is printed out. One is added to COUNT in order to keep 
track of how many times the line has been printed. Then 
COUNT is compared to 20. If COUNT does not equal 
20, a branch is taken back to the beginning (GOTO 
DOAGIN). If COUNT equals 20, the branch is not taken. 
Instead 20 is subtracted from the COUNT field so that it 
will be zero for the next cycle. 


LOOKUP OPERATIONS 

Lookup operations are used when searching through a 
table or an array to find a special element. 

Lookup (LOKUP) 

This operation code causes a search to be made for a 
particular item in a table or array. The table or array is 
Factor 2. Factor | is the search word (data for which 
you wish to find a match in the table or array named). 
Factor 1, the search word, may be: 

1. An alphameric or numeric constant. 

2. A field name. 

3. An array element. 

4. A table name. 

Remember that when a table is named in Factor 1, it 


refers to the element of the table last selected in a 
LOKUP operation, not to the whole table. 


Resulting indicators are always used in connection with 
LOKUP. They are used to first indicate the type of search 
desired and then to reflect the result of the search. A 
resulting indicator assigned to Equal (columns 58-59) in- 
structs the program to search for an entry in the table or 
array equal to the search word. The indicator turns on 
only if such an entry is found. If there are several entries 
identical to the search word, the first one that is encoun- 
tered is selected. 
An indicator assigned to Low (columns 56-57) instructs 
the program to locate an entry in the table that is nearest 
to, yet lower in sequence than, the search word. The 
first such entry found causes the indicator assigned to 
Low to turn on. 


The indicator assigned to High (columns 54-55) instructs 
the program to find the entry that is nearest to, yet 
higher in sequence than, the search word. The first higher 
entry found causes the indicator assigned to High to turn 
on. In all cases the resulting indicator turns on only if 
the search is successful. 


At least one resulting indicator must be assigned, but no 
more than two can be used. Resulting indicators can be 
assigned to Equal and High or Equal and Low. The pro- 
gram searches for an entry that satisfies either condition 
with Equal given precedence; that is, if no Equal entry 
can be found, the nearest lower or nearest higher entry is 
selected. If resulting indicators are assigned both to High 
and Low, the indicator assigned to Low is ignored. When 
using the LOKUP operation, remember: 


1. | The search word and each table or array item must 
have the same length and the same format (alpha- 
meric or numeric), but need not have the same align- 
ment. 


2: You may search on High, Low, High and Equal, or 
Low and Equal only if your table or array is in se- 


quence. 


3. No resulting indicator turns on if the entry searched 
for is not found. 
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Using the LOKUP Operation 
LOKUP with One Table 


When searching a single table, Factor 1, Factor 2, and at 
least one resulting indicator must be specified. Condition- 
ing indicators (specified in columns 7-17) may also be 
used. 


Whenever a table item is found that satisfies the type of 
search being made (Equal, High, Low), a copy of that 
table item is placed in a special storage area. Every time 

a search is successful, the newly found table item is placed 
in this area, destroying what was there before. If the 
search is not successful, no table item is placed in the 
storage area. Instead, the area keeps the contents it had 
before the unsuccessful search. 


Resulting indicators are always set to reflect the result of 
the search. If the indicator is on, showing a successful 
search, you know that a copy of the item searched for is 
in the special storage area. 


LOKUP with Two Tables 


When two related tables are used in a search, only one is 
actually searched. When the search condition (High, Low, 
Equal) is satisfied, the corresponding data items from both 
tables are made available for use. 


Factor 1 must be the search word and Factor 2 must 
name the table to be searched. The Result Field must 
name the related table from which data is made available 
for use. Resulting indicators must also be used. Condi- 
tioning indicators (specified in columns 7-17) may be 
specified if needed. 


The two tables involved should be the same length. If 
the table that is searched is longer than its related table, 
the search stops at the end of the shorter table. 


Referencing the Table Item Found in a LOKUP Operation 


Whenever a table name is used in an operation other than 
LOKUP, the table name really refers to the data placed in 
the special storage area by the last successful search. 
Thus, by specifying the table name in this fashion, you 
can use data items from a table in calculation operations. 


If the table is used as Factor 1 in a LOKUP operation, 
the contents of the special storage area are used as the 
search word. In this way a data item from a table can 
itself become a search word. 


The table may also be used as the Result Field in opera- 
tions other than the LOKUP operation. In this case the 
contents of the special storage area are changed by the 
calculation operation. The corresponding table item in 
the table itself is also changed. This is a way in which 
you can modify the contents of the table by calculation 
operations (Figure 132). 
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Example of Table Lookup 


Figures 133 and 134 show the use of the LOKUP opera- 
tion. Figure 133, insert A shows the contents of four 
tables: TABLEA, TABLEB, TABLEC, and TABLED 
(loaded at compile time). Each table has five entries. 


Figure 133, insert B shows the extension specifications 

for these tables. TABLEA and TABLEB are described 
separately and are, therefore, entered separately. 
TABLEC and TABLED are related tables and are entered 
in alternating format on the table input cards. Figure 
132 shows the order in which the table input cards are 
loaded into the machine at compile time. 


LOKUP with an Array 


The LOKUP specifications for arrays are the same as for 
tables except that if Factor 2 is an array, the Result 
Field cannot be used. In addition if the desired item is 
found, the indicators reflect only that the desired item is 
in the array; the programmer does not have ready access 
to this item. 


If you use just the array name in referencing the array, 
the search begins at the first element in the array. You 
must use indicators to determine if a match was found. 


If you use the array name and an index (which may be 

a field name or a literal), the search begins at the element 
identified by the index. If a match is found, the number 
of the array element containing the match is placed in 
the field used as an index. If no match is found, the 
index field is set to 1. 


If a literal was used as an index, indicators must be used 
to determine if a match was found. The content of the 


Shaentl Snr an 


element referenced by the literal is not 


changed 
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Figure 134. Order in which Tables are Loaded (Compile Time) 


Figure 135 shows two LOKUP operations performed 

with an array. MANNOS, a 2100 element array of em- 
ployee numbers, is read in at pre-execution time from 
file ARRFILE with six 10 position elements per record; 
the array elements are in ascending order. Line 01 of the 
Calculation sheet shows a LOKUP of array MANNOS 
with the object of finding the element nearest to but 
higher in sequence than the search word ‘100336’. If this 
desired element is found in the array, indicator 20 turns 
on and the GOTO in line 02 is performed. Notice that 
the result of this LOKUP indicates only whether or not 
the desired element exists in the array. Line O05 of the 
Calculation Sheet shows essentially the same LOKUP 


051302124715 


TABLEA 


TABLEC and TABLED 


———»- TABLEB 


operation—indicator 20 will turn on when the first ele- 
ment higher in sequence than ‘100336’ is found. Note, 
however, that in this LOKUP operation, the array 
MANNOS is indexed by the field INX. This index field 
was set to 1 in line 04 so the LOKUP will begin at the 
first element of MANNOS. If the desired element is 
found, the number of this element (not its contents) is 
placed in the field INX. In this way, the actual element 
which satisfied the LOKUP can be used in subsequent 
calculation operations, as in line 07. If no element was 
found to satisfy the LOKUP, the field INX would be reset 
to 1. 
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Figure 135. LOKUP With an Array 
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Starting the Search at a Particular Array Item SUBROUTINE OPERATIONS 


It is possible, in order to save processing time, to start These operation codes are only used for subroutines. See 
the LOKUP search at a particular item in the array. This Subroutines for information on subroutines. All sub- 
type of search is indicated by additional entries in columns _ routine operation codes must be written in specification 
33-42. Enter the name of the array to be searched in lines following all detail and total calculations. Subrou- 


these columns followed by a comma and a numeric literal _ tine lines are always identified by an SR in columns 7-8. 
or the name of a numeric field (with no decimal posi- 
tions). The numeric literal or numeric field tells the num- 


ber of the item at which you wish to start the search Begin Subroutine (BEGSR) 

(Figure 136). This numeric literal or field is known as 

the index because it points to a certain item in the array. This operation code serves as the beginning point of the 
All other columns are used as previously described for the subroutine. Factor 1 must contain the name of the 
normal lookup operation. subroutine. 


The search starts at the specified item and continues 


until the desired item is found or until the end of the End Subroutine (ENDSR) 

array is reached. When an index field is used, an unsuc- 

cessful search causes the index field to contain the value This operation code must be the last statement of the 

of one. If, however, an item is found which satisfies the subroutine. It serves to define the end of the subroutine. 
conditions of the LOKUP operation, the number of that Factor 1 may contain a name. This name then serves as 
array item (counting from the first item) is placed in the a point to which you can branch by a GOTO statement 
index field. A numeric literal used as an index is not within the subroutine. The ENDSR operation ends the 
changed to reflect the result of the search. subroutine and automatically causes a branch back to the 


next statement after the EXSR operation. 


Note: If a literal or field index for an array is zero, or 
greater than the number of elements in the array, the 


z ; Execute Subroutine (EXSR) 
following will result: 


This operation causes all the operations in the subroutine 
to be performed. EXSR may appear anywhere in the pro- 
gram. Whenever it appears, the subroutine is executed. 
After all operations in the subroutine are done, the oper- 
ation in the line following the EXSR operation is per- 
formed. 


1. For a literal index a severe error occurs, and com- 
pilation will cease. 


2. Fora field index the job will halt, allowing the 
operator to cancel or restart the program. If the 
program is restarted, the field index is given a value 
of one (see Appendix A, RPG II Halt Procedures). 
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Figure 136. Array Lookup: Starting at a Particular Array Item 
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This operation may be conditioned by any indicators, 
meaning the subroutine is executed only when all condi- 
tions are satisfied. Factor 2 must contain the name of 
the subroutine that is to be executed. This same name 
must appear on a BEGSR instruction. 


SUBROUTINES 


A subroutine is a routine that is part of another main 
routine. A routine is something done over and over 
again. A program can be called a routine because the 
instructions in a program are done again and again (the 
program cycle). A subroutine is a group of instructions 
in that main routine (program) which may be done 
several times in one program cycle. 


Sometimes it is necessary to write a program which at 


several points does the same operations. Instead of 
having to write these instructions every time they are 
needed, it is easier and less time consuming if they can 
be written just once and then referred to each time they 
are needed. You can do this by writing a subroutine 
which then consists of all those operations you have to 
do at several points in your program. 


You might also have to do the same sequence of opera- 
tions in several different programs. Instead of writing 
these specifications in each program, you can code the 
operations once as a subroutine. You then include this 
subroutine in as many different programs as you wish. 


Coding Subroutines 


Subroutines are coded and used on the Calculation Sheet. 
They are entered after all other calculation operations. 
Every subroutine must have a name, but no two sub- 
routines used in the same program may have the same 
name. 


Enter the name of the subroutine in Factor 1, and on the 


same line enter the ee code BEGSR (line 10 of 
Figure 137). The subroutine name can be 1-6 characters 


OViv av aaa subro Boay £40400 VO UY 2° VEEGIGViVin 


jong and must begin in ae 18 with an alphabetic 
character. The remaining characters can be any combina- 
tion of alphabetic or numeric characters (no special char- 
acters). Blanks may not appear between characters in the 
name. 





IBM International Business Machines Corporation 
& 


RPG CALCULATION SPECIFICATIONS 





Date 





Progra = 3 


Programmer 





Factor 1 i Factor 2 





Punching Graphic 
instruction Punch 


Decimal Positions 
Half Adjust (H) 














et 
4 
eal 
Ee 





& 
Te 
[eee 


















































PAIN | PATS eh Float 











[ ih 




































































Peer iat 
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Calculation 
operations 


Calculation operations 
in the subroutine 


Each specification line within the subroutine (except AN 
or OR lines) must have SR in columns 7-8 to identify it 
as a subroutine line (Figure 137). The last statement of 

the subroutine is indicated by the operation code ENDSR 
(line 17 of Figure 137). Factor 1 of the ENDSR state- 
ment may contain a name. This name indicates the point 
to which a GOTO within the subroutine can branch 
(Figure 138). 


The subroutine, even though specified last on the Calcula- 
tion Sheet, may be performed at any point in the calcula- 
tion operations. Whenever the subroutine is to be used, 


enter the operation code EXSR (execute subroutine). 
The name of the subroutine to be used must also be 
entered in Factor 2 (lines 04 and 08 of Figure 139). 
Using the EXSR operation is known as calling a subrou- 
tine. 


The operation code EXSR causes the operations in the 
subroutine named in Factor 2 to be performed. After all 
calculation operations in the subroutine are done, the 
next operation after the EXSR is performed. For exam- 
ple, when the EXSR operation (line 04 of Figure 139) is 
encountered, all subroutine operations (lines 11-15) are 
done. Then the operation in line 05 is performed. 
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Figure 138. Subroutines (ENDSR) 
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icators may be used with EXSR code to condition 
when the subroutine should be executed. Any valid indi- 
cator may be used in columns 7-17. If no indicators are 
used, the subroutine is always executed. 


All possible RPG II operations may be performed within 
a subroutine. Operations within the subroutine may be 
conditioned by any valid indicator in columns 9-17 
(Figure 139). Since SR must appear in columns 7-8, con- 
trol level indicators cannot be used in these columns. 


This means that individual operations within the sub- 
routine cannot be conditioned by a cori level indicator 
used in columns 7-8, However, entire subroutines can be 
conditioned by control level indicators. This can be done 
by using the control level indicator with the EXSR oper- 
ation (line 08 of Figure 139). 


Fields used in the subroutine may be defined either 
inside or outside the subroutine. In either case, they 
can be used by both the main routine and the subroutine. 
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Figure 139. Subroutines (EXSR) 
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You may use as many subroutines in your main program 
as you wish. However, you cannot write a subroutine 
within a subroutine. This means that within one sub- 
routine you cannot have the BEGSR and ENDSR opera- 
tion codes. One subroutine may call another subroutine, 
however. In other words, within a subroutine you may 
have an EXSR operation (Figure 140). A subroutine 
cannot call itself and cannot call the subroutine which 
called it. 


Subroutines need not be defined in the order in which 
they are used. However, you must make certain that 
each one has a different name and a BEGSR and ENDSR 
operation code. 


When you use a GOTO statement in a subroutine, you 
may only branch to another statement in that same sub- 
routine. Branching (GOTO) to a statement in another 
subroutine or outside of a subroutine causes an error con- 
dition. You cannot use a GOTO from outside the sub- 
routine to a statement within the subroutine either. 
Figure 141 shows the correct use of GOTO and TAG 
within a subroutine. 


Use of One Subroutine in Many Different Programs 


When you wish to do the same operations in many differ- 
ent programs, you may use a subroutine to eliminate 
duplicate coding in each program. Merely code these 
operations once and use this subroutine along with your 
main program deck. 


Whenever you code a subroutine to be used in several 
different programs, remember: 


1. When you call the subroutine in your main program 
(EXSR operation code), you must use the correct 
name of the subroutine in Factor 2. 


2. All fields that will be used both by the subroutine 
and the main routine must be named the same in 
each routine. For example, if both the main 
routine and the subroutine used data from the field 
called COST on the input card, that field must be 
named COST in both routines. Keep in mind that 
the COST field also has the same characteristics 
(length, decimal positions) in both the main routine 
and the subroutine. 
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Figure 141. GOTO and TAG Within a Subroutine 


PROGRAMMED CONTROL OF INPUT AND OUTPUT program cycle can be altered to allow input and output 
operations during calculations. The following operations 

The normal RPG II processing cycle is as follows: provide this capability: 

1. A record is read. @ Exception (EXCPT) 

2. Calculations are performed. @ Force (FORCE) 

3. Records are written. @ Display (DSPLY) 

(See General RPG II Object Program Logic in Chapter 1 @ Read (READ) 

for a brief description of the program cycle.) The normal 
@ Chain (CHAIN) 
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Exception (EXCPT) 


This operation allows records to be written at the time 
calculations are being done. Use this primarily when you 
wish to have a variable number of similar or identical 
records (either detail or total) written in one program 
cycle. (Remember that normally, only the exact number 
of records specified in the output-format specifications 
are written or punched on a file in one program cycle.) 
For example, you might use EXCPT to produce a variable 
number of identical mailing labels, to write out contents 
of a table, or to produce a number of records having the 
same information punched in them. 


When the EXCPT operation is used, EXCPT is entered 

in columns 28-32, and columns 7-17 may have entries. 

All other columns must be blank. The line or lines which 
are to be written out during calculation time are indicated 
by an £ in column 15 of the Output-Format Sheet. 
Exception lines may not be used in a combined file. 


Figure 142 shows the use of the EXCPT operation to 
produce a variable number of records having the same 
information punched in them. Records in the input file 
have two fields, NAME and COUNT. The NAME field is 
to be entered into a certain number of records. That 
number is indicated in the COUNT field. 


Every time the operation code EXCPT is performed, the 
exception record indicated by the F in column 15 of the 
Output-Format Sheet is punched. The field CONSEC is 
used to keep track of the number of records punched. 
Each time an exception record is written, 1 is added to 
CONSEC. CONSEC is then compared with COUNT, the 


field that tells how many records should be punched. If 
they are not equal (indicator 20 is not on), a branch is 
taken back to DOAGIN. Another record is punched out. 
One is added to CONSEC and CONSEC is compared to 
COUNT. If these fields are now equal, another input 
record is read. If not, the same operations are done again. 
Whenever CONSEC equals COUNT, enough records have 
been punched. CONSEC is then subtracted from itself, 
making it zero. This last operation is necessary so that 

an accurate count can be kept for the next record. 


Force (FORCE) 


FORCE statements enable you to select the file from 
which the next record is to be taken for processing. They 
apply to primary or secondary; input, update, or com- 
bined files. 


Factor 2 in a FORCE statement identifies the file from 
which the next record is to be selected. If the statement is 
executed, the record is selected at the start of the next pro- 
gram cycle. If more than one FORCE statement is exe- 
cuted during the same program cycle, all but the last is 
ignored. FORCE should not be specified at total time. 


FORCE statements override the multifile processing 
method by which the program normally selects records. 
However, the first record to be processed is always selected 
by the normal method. The remaining records can be 
selected by FORCE statements. When end of file is 
encountered on a forced file, a record will not be retrieved 
from the file; normal record selection will determine which 
record is to be processed. 
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Figure 142. EXCPT Operation (Producing a Variable Number of Identical Records) 
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Example Condition Indicators Set On _ File Selected 


Figure 143 shows part of a job which uses FORCE opera- 









































































tion codes and look ahead fields to simulate normal record Records 1,2,and 21 and 23 Primary 
selection. Normal record selection is not used because 3 match (CUST (FIRST) 
records in the two secondary files have two match fields, field values). 
CUST and ITEM, and those in the primary file have only 
one, CUST. Normal record selection requires all three to Record 2 has 26 First 
have the same number of match fields. lower CUST fiel secondary 
value than record 1. (SECOND) 
Indicators 20-23 and 26-28 are used to determine which Record 2 has 
file the next record is to be read from. The conditions lower CUST and 
under which the files are chosen follow. Record 1 means ITEM fields 
the record from the primary file; record 2 the first second- (together) value 
ary file; and record 3, the second secondary file. than record 3. 
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Figure 143. FORCE Operation Code (Part 1 of 2) 
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Figure 143. FORCE Operation Code (Part 2 of 2) 
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In addition, indicators 24, 25, and 29 are set to condition 

calculations which process the record selected. 
Condition Indicator Set On 

Records 1, 2, and 3 match (CUST 24 


fields), Records 2 and 3 match 
(CUST fields and ITEM fields). 


Records 1, 2, and 3 match (CUST 25 
fields). ITEM fields in records 2 
and 3 do not match. 


CUST field values in records 2 29 
and 3 match; ITEM fields do 

not. Record 1 has higher 

CUST field value. 


All the calculations shown in Figure 141, insert C are 
needed to determine which record is to be processed next. 
The operations which are performed upon the data from 
the input records are not shown. They do, however, pre- 
cede the calculations shown in Figure 141, insert C and are 
conditioned by the indicators set during the previous cycle 
by the calculations shown. 


Display (DSPLY) 


The display operation allows either or both of the follow- 

ing: 

1. A field, table element, array element, or literal up to 
125 characters long is printed on the printer-keyboard 


during program execution without a program halt. 


2. A field, table element, literal, or array element up to 


125 characters long is printed on the printer-keyboard, 


and the program halts, allowing that field to be 
changed. 


See Figure 144 for coding possibilities and results. Also 
see Figure 146 under CHAIN operation in this chapter for 
an example using the display operation. A literal may not 
be changed with display. 


There are several points to remember if you wish to enter 
data during program execution: 


1. Numeric data need not be entered with leading zeros; 
numeric data will be right-justified after all characters 
are keyed. To key a negative field, the field is keyed 
and then a minus sign is keyed. 


2.  Alphameric fields will be left-justified after all charac- 
ters are keyed. 


3. Alphameric fields are blanked out and numeric 
fields are zeroed out. 


4. If no characters are entered or the space bar is not 
depressed, the result field will not be changed. 


5. The data entered must be followed by depressing 
the END key if the data is correct or the CANCEL 


ae 


key if you want to re-enter data. 


Read (READ) 


The READ operation is used to call for immediate input 
from a demand file during the calculations in the program 
cycle. This operation differs from the FORCE operation 
because FORCE specifies input on the next program cycle, 
not the present one. The READ operation is similar to the 
CHAIN operation, except that the READ file is processed 
sequentially and the CHAIN file is processed randomly. 


The operation code READ must appear in columns 28-32. 
Factor 2 contains the name of the file from which a record 
will be read immediately. An indicator should be used in 
columns 58-59. An indicator specified in these columns 
will turn on after each READ operation if an end of file 
condition is reached. If columns 58-59 are blank, a halt 
will occur on an end-of-file condition and on subsequent 
READ operations after the end-of-file condition is reached. 
Indicators may be specified in columns 7-17. 


Note: When the program is reading from several demand 
files during the same RPG II cycle, record identifying indi- 
cators assigned to the demand files will remain on through- 
out the cycle if the previous READ operations were ex- 
ecuted successfully. 


The following files can appear as Factor 2 ina READ 
operation (all must be designated demand files with a D in 
column 16 of the File Description Sheet): 


@ Sequential or direct disk files processed consecutively 
and specified as input or update files. 


@ Indexed disk files processed sequentially by key and 
specified as input or update files. 


@ Indexed disk files processed sequentially within limits 
and specified as input or update files. 


@ Console files specified as input files. 


@ MFCU files specified as input or combined files. 
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Position 1 


. FIELDA (up to 125 characters) is printed as shown. ———————-—> | DSPLY 
. FIELDA does not change. Contents of FIELDA (Factor 1) 


. Program does not halt. 





FIELDB (up to 125 characters) is printed as shown. ———~-——> | DSPLY 


. Program halts. Contents of FIELDB (Result Fieid) 
. FIELDB is blanked out if data is entered or the space 


bar is pressed. 


. Data can be entered in FIELDB. 





. FIELDA (up to 125 characters) and FIELDB (up to 125 ————» }_ DSPLY 
characters) are printed as shown.. Contents of FIELDA (Factor 1) 
. FIELDA does not change. Contents of FIELDB (Result Field) 


. Program halts. 
. FIELDB is blanked out if data is entered or the space bar 


is pressed. 


. Data can be entered in FIELDB. 


Factor 1 cannot be the name of an array. 


Figure 144. Methods of Coding the Display Operation 
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When using the READ operation for demand files 
remember these points: 


1. Demand files can only be processed by the READ 
operation. 


2. Control levels, matching fields, and look-ahead fields 
are not allowed with demand files. 


3. Numeric sequence testing on the Input Sheet is not 
allowed for demand files. 


4. The MR indicator may not be entered in columns 
63-64 (Field Record Relation) on the Input Sheet. 


5. Sterling fields cannot be used in demand files. 
6. | Whena demand file is conditioned by a U1-U8 
indicator which is not on, no records will be read 


from that file and the end-of-file indicator in columns 
58-59 will not turn on. 


€ 
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Example: Assigning Man Numbers to New Employees 


Figure 145 shows the coding necessary to process a demand 
file with the READ operation code. The combined input 
and output file NEWNAME, consisting of a deck of cards 
with a name field in columns 8-96, is read from the primary 
MFCU hopper. The disk file NUMBRFLE, specified as an 
update demand file, consists of records containing a seven- 
digit number and a flag mark. For each record read from 
NEWNAME, a record is also read from NUMBRFLE during 
the calculation phase by means of the READ operation 
code. If the record from the demand file contains a flag 
(field indicator 88 is off), another record is immediately 
read. This loop is repeated until a record without a flag 

has been read from NUMBRFLE; a flag of ‘X’ is then 
moved into the FLAG field. When end of file has been 
reached on the demand file and each time READ is encoun- 
tered thereafter, resulting indicator H1 is turned on. 
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Figure 145. READ Operation Code (Part 1 of 2) 


HEH HE Ce 





Calculation Specifications—Operation Codes 211 








Form X21-9094 
Printed in U.S.A. 


IBM 
RPG INPUT SPECIFICATIONS 

















1 2 75 76 77 78 79 80 
Oster Program 
Punching Graphic page Az enneaGon 
Program instruction Punch 
Programmer pes = 




















Field 


Record Identification Codes 
fener vee a ee 


‘ Sterling 
; Field Name 3° Sign 
= Zero | Position 
Position From : Plus |Minus| or 
: i Biank 
3°94 SJ6}7 8 9 101% 12 13 14/15 16}1714 40 141142 }43144 45 46 47148 49 50 51(52}53 54 55 56 57 58/59 60/61 62163 64]65 66/67 68/69 70|71 72 73 74 


PTT MEMVAMe WS] err TT Seca ae CCE EE 
pee STG eS eel Oen abo eae 


Viol wAME! TT TT tT 
ele] PE WOMBIREILIEN S| | ip OE EE HASSETT Ee eI IST eI Sed Sis 


STETEErR TERSTecePdTTTTeAL EE eCEFE-Hi Bane EE 


International Business Machines Corporation Form X21-9093 


RPG CALCULATION SPECIFICATIONS een ne 
12 75 76 77 78 79 80 


a =o =D) ten ITLL 


: Identification 
Instruction 
Program 
Indicators 


And And Factor 1 } Operation | Factor 2 Result Field 


TFLPLL 18 19 20 21 22 23 24 25 26 27128 29 30 31 32[33 34 35 36 37 38 39 40 41 42 
PT TPR ee bane 

i “TOE Real wlolipeicie 
was TUTTE iil oot TT 
ae eee 7 


Field Location 




















Line Filename 





Position Position 


Record Identifying Indicator 
r 


Form Type 

Number (1-N) 
Option (O) 

Character 

c/2z/0 

Character 

Stacker Select 

P = Packed/B = Binary 
Decimal Positions 
Control Level (L1-L9) 
Matching Fields or 
Chaining Fields 

Field Record Relation 




















Programmer 
Resulting 
Indicators 


Field 
Length 


Compare 


High | Low Comments 
1>2/1< 2 
a 


Table (Factor 2) is 


Line 


Form Type 
Control Level 
(LO-L9, LR, 5R) 
Decimal Positions 
Half Adjust (H) 






ig ee Equal 
45 46 49 SO 51152553 56 57158 59/60 61 62 63 64 65 66 67 68 69 70 71 72 73:74 


47 48 





43 44 





sTelsfele 
=[etet=]- 
rt 
stole 
rt 
i ee ee 


oO 


FiL 

















IBM international Business Machines Corporation om X21-9090 
rintetdintiS & 
: RPG OUTPUT - FORMAT SPECIFICATIONS 
12 75 76 77 78 79 80 
p Pr 
en a GR} See! LTTE 
Bonava vee | Punch | 
Program 4] I i I : 
Programmer 


















Output Indicators Edit Codes 

















































































a é Gres Ph Sign ae 
Line Filename Al. ‘ee ag as Field Name A ; : =o Position 
oT EWE WHAME! | THT au tii ETL 
o12] |o | U |B! R | ||| | 4 HERaaER 
0434 oF ees rt io rm ¥.P RAUNT Pek fae roc del eae I 
sl Colle He gh ee i a cul HECCHEEHHEEECE i 
ee CERES ae at geet eee cee 
2 ln aera tt teat eee Pee eee eet 
anasie | Peebles 











Figure 145. READ Operation Code (Part 2 of 2) 


212 


At detail output time, the flagged number from the record 
in NUMBRELE is punched and printed on the card from 
NEWNAME. The record from NUMBRFLE, which now 
contains a flag, is returned to its original location on the 
disk. The disk file, NAMEFILE, is then written containing 
the name from the NEWNAME card file and the number 
from the demand file, NUMBRFLE. 


Chain (CHAIN) 


The chain operation causes a record to be read from a disk 
file during calculations. This operation allows one record 
to be read in when the operation code CHAIN appears in 
columns 28-32 of the Calculation Sheet. 


Indicators in columns 7-17 may be used, but Result Field, 
Field Length, Decimal Position, and Half-Adjust (columns 
43-53) must be blank. File conditioning indicators (U1-U8) 
can be used to condition a chained file. 


Columns 54-55 should contain an entry. If the record is 
not found, the indicator specified in these columns will turn 
on. No output is permitted to a chained update file when 
the specified record is not found. Columns 56-59 must 
always be blank for chain operations. 


If an indicator is not specified in columns 54-55, and the 
record is not found, the program will halt. The options 
given are to end the job or to bypass the remainder of the 
current cycle and begin a new cycle. If LR processing has 
already been initiated, the bypass-and-begin-new-cycle 
option is not allowed. If the controlled cancel option is 
taken, files are closed, but the rest of the LR processing 
does not occur. 


When the program is chaining to a file with packed record 
keys, the entry in Factor 1 of the CHAIN operation must 
have a packed length which is the same as the length of the 
key field in the chained file. Packed key fields can be a 
maximum of 8 bytes. The following chart shows the packed 
equivalents for unpacked fields from one to 15 bytes in 
length: 

Unpacked Length Packed Length 
15, 14 8 
13, 12 
11, 10 
9,8 
7,6 
5,4 
3,2 
1 


7" NO OW fon N 


The chain operation is used for two purposes: 


1. Random processing of an indexed, sequential, or 
direct file. 


2. Loading a direct file. 


Random Processing 


In order to read a record from a sequential or direct file, 
the record must be identified by relative record number. 
To read a record from an indexed file, a record key is used 
for identification. The relative record number or key can 
be contained in a field specified for that purpose. 


The chain operation requires the operation code CHAIN in 
columns 28-32 of the Calculation Sheet. Factor 1 entries 
must be a relative record number or key. Relative record 
numbers must be numeric. Factor 2 must contain the name 
of the file from which the record will be read. This file is 
called the file that is chained to, or the chained file (see 
Examples, Example 1). 


Direct File Load 


To create (load) a direct file, define it as a chained output 
file on the File Description Sheet. In the calculation speci- 
fications, Factor 1 must contain a relative record number, 
columns 28-32 must contain the operation code CHAIN, 
and Factor 2 must contain the name of the direct disk file 
to be loaded. 


Relative record numbers define the record position for 
each record in the direct disk file. The relative number can 
be all or part of a field in input records or can be generated 
by the RPG II program. Relative record numbers are used 
for record identification of the disk records after the disk 
file is loaded. 


When a direct file is loaded as a chained output file, the 
system clears the disk space required for the direct file 
with blanks before it is loaded. The relative record number 
is used to chain to the corresponding relative record posi- 
tion in the disk file. The information is then written on 
disk, replacing the blanks with data. If a record is not 
loaded, the space reserved for that record in the disk file 
remains blank (until the proper record is loaded later). 


Once the direct file is loaded, records are inserted or 
changed in the file by defining the direct file as an update 
file processed consecutively or by the chain operation (see 
Note). 
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You may have to allow for synonyms when you load a 
direct file. Synonyms are two or more records with the 
same relative record number. If you will have synonyms, 
you can load the file in one of two ways, using multiple 
passes: 


Define the disk file as a direct file and clear it to 
blanks in your first job (by defining it as a chained 
output file). Once the file has been cleared, one or 
more subsequent jobs can be run using the update 
function to read record locations and check for 
synonyms while loading the file. 


1: 


Load the direct file with records without synonyms, 
then run another job using the update function to 
identify synonyms and load them into the file. 


No 


Note: The insertion of records in direct disk files is very 
different from record addition to sequential or indexed 
files. For sequential disk files, the new record is added in 
at the first available position at the end of the file. The 
same process occurs for an indexed file, except that the 
record key and disk address are added to the file index. 
Any new records inserted in a direct disk file already have 
a space reserved for them. Hence, the record is inserted in 
its proper place, not merely added to the physical end of 
the file. 


Examples 


Example 1: Figure 146 shows the coding necessary to 
chain to and update an indexed file, MASTINV. The 
CARDIN file consists of cards sorted by item number, each 
card representing some quantity ordered. Item number is 
used as a control field. When all the quantities for one 
item number are added, a control break will occur. At this 
point in calculations, the master record for that item num- 
ber must be found and updated. ITEMNO is a field con- 
taining the item number of the cards presently being 
worked on. The chain operation uses ITEMNO to find the 
master record for that item number. If it is not found, a 
display operation prints out the item number of the cards. 
Note that indicator 20 turns on when the records are not 
found. 


If the master record is found (20 not on) the total quantity 
for the item number is subtracted from the quantity on 
hand. After the total calculations, the QOH field in the 
master record is updated. 
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Figure 146. Chain Operation (Part 1 of 2) 
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Example 2: Figure 147 shows the loading of a direct disk is used as the relative record number to chain to 
file. NAMEFILE, described as a chained output file on the NAMEFILE during calculations. The entire input record, 


File Description Sheet, is to be loaded with records read RECORD, is written out on NAMEFILE in the relative 
from CARDS, a card file read from the primary MFCU record location corresponding to MANNUM. When end of 
hopper. file (F in column 17 of the File Description Sheet) is 


reached on CARDS, any relative record locations on 
Prior to loading, NAMEFILE is cleared to blanks. As each NAMEFILE which have not been loaded with data from 
record is read from CARDS, the man number (MANNUM) CARDS will contain blanks. 
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DEBUG OPERATION 


The debug operation is an RPG II function that you may 
use to help you find errors in a program which is not 
working properly. This code causes one or more records 
to be written containing information helpful for finding 
programming errors, 


Debug (DEBUG) 


The DEBUG operation code may be placed at any point or 

at several points in the calculation operations. Whenever it 

is encountered, one or more records are written depending 

upon the specifications entered. One record contains a list 

of all indicators which are on at the time the DEBUG code 

was encountered. The other shows the contents of any one 
field. 


Specifications 


Factor 1 is optional. It may contain a literal or field name 
which identifies the particular debug operation. The literal 
or the value of the field named here is written on record 1. 
Factor 2 must contain the name of the output file on which 
the records are written. The same output filename must 
appear in Factor 2 for all DEBUG statements in a program. 
The result field may be a field, table element, array element, 
or whole array whose contents you want to write on record 
2. Any valid indicator may be used in columns 7-17. 
Columns 49-59 must be blank. 


Because of additional processing considerations, care must 
be exercised when writing debug records to a direct or 
indexed file. 


The operation code produces results only if the proper 
entry (1 in column 15) has been made in the control card 
specifications. If the control card entry has not been made, 
the operation code DEBUG is treated as a comment. See 
Column 15 in Chapter 3 for more information. 


Records Written for DEBUG 


Record 1 is required. It is written in the following format: 


218 


Record Positions 


17 
18-31 
32—any position 


(depending on 


mimher of 
number Wa 


indicators on) 


Record Positions 


2-12 


13-14 


15—any position 
(depending on 
length of field) 


Information 
DEBUG— 
Blank. 


Constant entered in Factor 1 or 
the statement number of the 
DEBUG operation code in the 
program. 


Blank. 
The words INDICATORS ON— 


The names of all indicators which 
are on, each separated by a blank. 
The word NONE if no indicators 
are on. More than one record may 
be needed. 


Record 2 is optional and is written only when there is a 
result field. The record is written in the following format: 


Information 


The words FIELD VALUE or 
TABLE VALUE or ARRAY 
VALUE. 


Blank. 


The contents of the result field 
or table or array (up to 256 
characters per element). More 
than one record may be needed. 


A blank is used to separate each array element. 


When applicable, a negative sign is written following 
an array element, table element, or field. 


When the result field cannot be contained in a record, 
a continuation begins in position two of the follow- 


ing record. 


When one or more elements of an array can be 
written on a single record, but the next element 
cannot be entirely contained on the record, then 
that next element will be written in position two of 


the next record. 


Output-Format specifications describe your output records. 


These specifications may be divided into two general cate- 
gories: 


1. Record description entries (columns 7-31) which 
describe the output file records to be written or 
punched. 


2. Field description entries (columns 23-74) which 
indicate the position and the format of data on 
the output record. 


Write the specifications on the Output-Format Sheet 
(Figure 148). The field description entries start one line 
lower than record description entries. 
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COLUMNS 1-2 (PAGE) 


See Chapter 2. 
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COLUMNS 7-14 (FILENAME) 


Use columns 7-14 to identify the file to which records are 

to be written. The filename must begin in column 7. Use 
the same filename given in the file description specifications. 
You need to specify the output filename only once. That 
name, however, must be on the first line that identifies the 
file. 


COLUMN 15 (TYPE) 


Entry Explanation 

H Heading records. 

D Detail records. 

T Total records. 

E Exception Records (records to be written 


during calculation time). 


Use column 15 to indicate the type of record that is to be 
written. This record may be printed, written on disk, or 
punched or printed on a card. Perhaps the clearest method 
of describing output files is to enter the records for each 
file in this order: heading, detail, total, and exception 
(Figure 149, insert A). 


Another method is to enter all headings records for all 
output files, then, all detail records for all output files, etc., 
as shown in Figure 149, insert B. 


Use of heading and detail specifications together with con- 
trol level and overflow indicators specifying when output 
records are to be written is described under Columns 23-31, 
(Output Indicators) in this chapter. 


Heading records usually contain unchanging identifying 
information such as column headings, as well as page num- 
bers and date. 


Detail records are closely connected with input data. Most 
data in a detail record comes directly from the input record 
or is the result of calculations performed on data from the 
input record, 


Total records usually contain data that is the end result of 
specific calculations on several detail records. Exception 
output conditioned by level indicators (LO-L9) or total out- 
put may not be specified for primary or secondary update 
files. 
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Exception records are written or punched during calculation 
time. This is an unusual case and can be indicated only 
when the operation code EXCPT is used. E may not be 
specified for a combined file. See Operation Codes in 
Chapter 8 for further information on the EXCPT operation. 


COLUMNS 16-18 (ADD A RECORD) 


Entry Explanation 


ADD Add a record. 

Columns 16-18 may be used to specify that a record is to 
be added to an input, output, or update file. The output 
device for these files must be a disk. An A must also be 
coded in column 66 of the File Description Specification 
Sheet for the file to which the record will be added. 


ADD must appear in columns 16-18 of the first line for 
each record identified which is to be added. 
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Figure 149. Order of Output Record Types 


COLUMN 16 (STACKER SELECT/FETCH OVERFLOW) 


Entry Explanation 

Blank Cards automatically fall into certain stackers 
(primary hopper—stacker 1, secondary 
hopper—stacker 4). 

1-4 Indicates stacker you wish. 

F Fetch overflow. 


Column 16 may be used for two different purposes: 


1. To select a special stacker into which certain cards 
are to go. 


2; To indicate that the overflow routine can be used 
at this point for a printer file. 


Stacker Select 


Use column 16 to indicate that certain cards are to be 
stacked in a specific stacker. If you make no entry, cards 
go into a predetermined stacker (primary hopper—stacker 
1; secondary hopper—stacker 4). 


Only combined or output card files may be stacker selected 
in the output-format specifications. If any output opera- 
tions are to be performed on cards from a combined file 
that are also to be stacker selected, stacker selection should 
be done by the output-format specifications not by the 
input specifications. Stacker selection in output specifica- 
tions overrides stacker selection in input specifications. 


If stacker selection is done on the basis of matching records, 
it should only be done for detail output (D in column 15). 
It is only at this time that the MR indicator signals the 
matching status of the card that is ready to be stacker 
selected. 


OR lines may have different entries in column 16; AND 
lines may not. An OR line containing a blank in column 16 
causes cards to fall into the normal stacker associated with 
the hopper used. The stacker select entry on the previous 
line is not assumed. 


Fetch Overflow 


When the fetch overflow routine is not used, the following 
usually occurs when the overflow line is sensed: 


1. All remaining detail lines in that program cycle are 
printed (if a printer operation spaced or skipped to 
the overflow area). 


2. All remaining total lines in that program cycle are 
printed. 


3. All lines conditioned by an overflow indicator are 
printed. 


4. Forms advance to a new page if a skip to a new 
page has been specified. 


If you do not want all of the remaining detail and total 
lines printed on the page before overflow lines are printed 
and forms advance to the new page, you may cause over- 
flow lines to be printed ahead of the usual time. This is 
known as fetching the overflow routine and is indicated by 
the entry in column 16. Overflow is fetched only if all con- 
ditions specified by the indicators in columns 23-31 are met 
and an overflow has occurred. See Columns 33-34, Chapter 
4 for detailed information and examples of a fetched over- 
flow routine. 


The fetched overflow routine does not automatically cause 
forms to advance. A skip to line 01 (new page) must also 
be specified on a line conditioned by the overflow indicator 
in order to advance the forms. 


F may be used in an OR line if you want that line to con- 
dition a record with the overflow indicator. 


COLUMNS 17-22 (SPACE/SKIP) 


Columns 17-22 are used to specify spacing and line skipping 
for a printer file. If these columns are blank, single spacing 
occurs automatically after each line is printed. 


Line spacing and skipping may be specified both before and 
after printing of a line. There may be as many as six spaces 
(three before, three after) between two lines of printing. 
Only space before and space after can be specified on out- 
put for the printer/keyboard. 
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If both spacing and skipping are specified on the same line, 
they are done in this order: 


1. Skip before. 
2. Space before. 
3. Skip after. 


4. Space after. 


COLUMNS 17-18 (SPACE) 


Entry Explanation 

0 No spacing. 

1 Single spacing. 
2 Double spacing. 
3 Triple spacing. 


Spacing is used in reference to the lines on one page. You 
may indicate that spacing should be done before (column 
17) or after (column 18) a line is printed. If the destination 
of a space operation is a line beyond the overflow line (but 
not on a new page), the overflow indicator turns on and 
remains on until all overflow lines are printed. 


Note: The console will always space before printing, due to 
the carriage return mechanism. Therefore, a space before 
entry of blank, zero, or one will result in a single space 
before printing. 


COLUMNS 19-22 (SKIP) 


Entry Explanation 
01-99 Lines 1-99 
A0-A9 Lines 100-109. 
BO-B2 Lines 110-112. 


Skipping refers to jumping from one printing line to 
another without stopping at lines in between. This is 
usually done when a new page is needed. A skip to a lower 
line number means advance to a new page. Skipping may 
also be used, however, when a great deal of space is needed 
between lines. 
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The entry must be the two-digit number which indicates 
the number of the next line to be printed. You may indi- 
cate that skipping should be done before (columns 19-20) 
or after (columns 21-22) a line is printed. If you specify a 
skip to the same line number as the forms are positioned 
on, no movement of the paper occurs. If the destination of 
a skip operation is a line beyond the overflow line (but not 
on a new page), the overflow indicator is turned on and 
remains on until all overflow lines are printed. The destin- 
ation line of a skip operation must not be beyond the form 
length defined on the Line Counter Sheet. 


COLUMNS 23-31 (OUTPUT INDICATORS) 


Entry Explanation 

01-99 Any resulting indicator, field indicator, or 
record identifying indicator previously 
specified. 

L1-L9 Any control level indicators previously 
specified. 

H1-H9 Any halt indicators previously specified. 

U1-U8 Any external indicator set prior to program 
execution. 

OA-OG, = Any overflow indicator previously assigned 

OV to this file. 

MR Matching record indicator. 

LR Last record indicator. 

iP First page indicator. 

LO Level zero indicator. 


Use output indicators to give the conditions under which 
output operations are to be done. More specifically, use 
them to tell: 


1. When you want to output a line (see Examples, 
Example 1). 


2. | When you want to output a field (see Examples, 
Example 2). 


When you use an indicator to condition an entire line of in each field. If these indicators are on, the output opera- 


print, place it on the line which specified the type of tion will be done. An N in the column (23, 26, or 29) pre- 
record (Figure 150, insert A). Place an indicator which ceding each indicator means that the output operation will 
conditions when a field is to be printed on the same line be done only if the indicator is not on. No output line 

as the field name (Figure 150, insert B). should be conditioned by all negative indicators (at least 


one of the indicators used should be positive). If all nega- 
tive indicators condition a heading or detail operation, the 


There are three separate output indicator fields (columns operation is performed at the beginning of the program 
23-25, 26-28, and 29-31). One indicator may be entered cycle when 1P lines are written. The overflow indicators 


may not be specified on an F (exception output) line. 
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Warning: When defining records of combined or update 
files, avoid writing or punching multiple records on one 
cycle. In Figure 151, for example, if indicator 02 and 03 
are both on, two records from the combined file qualify 
for output on the same cycle. Results are unpredictable. 
Writing or punching to a combined file can only occur once 
for each cycle. 


In System/3 Disk RPG II, all total lines conditioned by LR 
will be performed last. 


AND and OR Lines 


If you need to use more than three indicators to condition 
an output operation, you may use an AND line. Enter the 
word AND in columns 14-16 and as many indicators as 
needed. The condition for all indicators in an AND 
relationship must be satisfied before the output operation 
is done. 


Output indicators may also be in an OR relationship. If 
either or both of the OR conditions are met, the output 
operation will be done. OR lines are indicated by the word 
OR in columns 14-15. Both AND or OR lines may be used 
together to condition an entire output line. A maximum of 
20 AND, OR, or mixed AND and OR lines are allowed in an 
output operation. AND and OR lines cannot be used to 
condition a field (see Examples, Example 3). 


The use of an LO-L9 indicator in an OR relationship with an 
LR indicator can result in the specified operation being done 
twice when LR is on. One operation is performed during LR 
processing and the other at detail or total time. The follow- 
ing example shows how to eliminate duplicate output at 

LR time. 
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Control Level Indicators 


Control level indicators entered in columns 23-31 of this 
sheet specify when output records or fields are to be 
written: 


1. If the control level indicator is entered along with 
a T in column 15 and no overflow indicator is used, 
the record is written only after the last record of a 
control group has been processed. 


2. — If the indicator is entered along with a D in column 
15 and no overflow indicator is used, the record is 
written only after the first record of the new control 
group has been processed. 


3. If the control level indicator is entered along with 
an overflow indicator, the record is written after 
the overflow line has been sensed (provided a con- 
trol break has also occurred). 


Overflow Indicators 


Overflow indicators are used to condition output operations 
on the printer. The operations conditioned by the overflow 
indicator are done only after the overflow line has been 
passed. 


If you have not assigned an overflow indicator to the 
printer file in the file description specifications, you may 
not use an overflow indicator in the Output-Format speci- 
fications, In this case, advancing the forms to a new page 
is handled automatically, even though no overflow indica- 
tor has been assigned. If any specification line not condi- 
tioned by an overflow indicator specifies a skip to a line 
on a new page, overflow indicators turn off before forms 
advance to a new page. 


An overflow indicator may appear on either AND or OR 
lines. However, only one overflow indicator may be associ- 
ated with one group of output indicators. That overflow 
indicator must also be the same indicator associated with 
the file on the File Description Sheet. 


When the overflow indicator is used in an AND relationship 
with a record identifying indicator, unusual results are often 
obtained. This is because the record type might not be the 
one read when overflow has occurred. Thus, the record 
type indicator is not on and all lines conditioned by both 
overflow and record type indicators do not print. 


If at all possible, use overflow indicators and record type 
indicators in an OR relationship when conditioning output 
lines, 


An overflow indicator cannot condition an exception line 
(£ in column 15), but may condition fields within the 
exception record. 


First Page Indicator 


The first page (1P) indicator is usually used to allow print- 
ing on the first page. It may also be used in connection 
with the overflow indicator to allow printing on every 

page (see Examples, Example 4). The information printed 
out on the line conditioned by the 1P indicator is usually 
constant information used as headings. The constant infor- 
mation is specified on the Output-Format Sheet, columns 
45-70. 


The 1P indicator is used only with heading or detail output 
lines. It cannot be used to condition total or exception 
output lines. Use this indicator only when other indicators 
(control level or resulting indicators) cannot be used to 
control printing on every page. 


All lines conditioned by the 1P indicator are written out 
even before the first record from any input file is processed. 
Therefore, do not condition output fields (except PAGE 
and UDATE) which are based upon data from input records 
by the 1P indicator. Calculation operations cannot be con- 
ditioned by the 1P indicator. 


Error Conditions 


On certain error conditions, you may not want output per- 
formed. Indicators can be used to prevent the data that 
caused the error from being used (see Examples, Example 
5). 


Examples 


Example 1: Figure 150, insert A shows the use of one 
indicator to condition an entire line of printing. When 44 
is on, the fields named INVOIC, AMOUNT, CUSTR, and 
SALSMN are all printed. 


Example 2: Figure 150, insert B shows the use of a control 
level indicator to condition when one field should be 
printed, When indicator 44 is on, fields INVOIC, AMOUNT, 
and CUSTR are always printed. However, SALSMN is 
printed only if 44 and LI are on. 
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Example 3: The use of indicators in both AND and OR OR lines may not be used to condition an output field 


lines to condition an output line is shown by Figure 152, (Figure 152, insert B). 

insert A. The specifications in lines 01-04 say that the 

detail line is written if either one of two sets of conditions However, you can condition an output field with more 

is met. If indicators 21, 40, 01, and 16 are all on, the line than three indicators by using the SETON operation in 

is written, or if 21 and 40 are on and O1 and 16 are off, the calculations. For instance, indicators 10, 12, 14, 16, and 

line is also written. 18 are to condition an output field named PAY. In calcula- 
tion specifications, you can SETON indicator 20 if indica- 

A maximum of three indicators may be used on the tors 10, 12, and 14 are on. Then condition the output 

Output-Format Sheet to condition a field since AND and field PAY on indicators 20, 16, and 18 on the Output- 


Format Sheet. 
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Figure 152. Output Indicators 
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Example 4: Figure 153, insert A shows how the 1P indica- 

tor is used when headings are to be printed on the first page 
only. Figure 153, insert B shows the use of the 1P indicator 
and overflow indicator to print headings on every page. 
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Example 5: Figure 154 shows coding necessary te check 
for an error condition and to stop processing on and writing 
from the record in error. If FIELDB contains all zeros, halt 
indicator H1 turns on (see line 03 of Figure 154, insert A). 
In the calculation specifications, if H1 is on, resulting indica- 
tor 02 turns off (see line 01 of Figure 152, insert B). On 
the Output-Format Specifications Sheet, FIELDA and 
FIELDB are printed only if 01 is on (see lines 03 and 05 of 
Figure 154, insert C). Therefore, if indicator 01 is off, 

fields A and B are not printed. Use this general format 
when you do not want information that is in error to be 
printed. 


COLUMNS 32-37 (FIELD NAME) 


In columns 32-37, use one of the following to name every 
field that is to be written out. 


@ Any field name previously used in this program. 


@ The special words PAGE, PAGE], PAGE2, *PLACE, 
*PRINT, UDATE, UDAY, UMONTH, and UYEAR. 


@ A table name, array name, or array element. 


The field names used are the same as the field names on 
the Input Sheet (columns 53-58) or the Calculation Sheet 
(columns 43-48). Do not use these columns if a constant 
is used (see Columns 45-70 in this chapter). If a field name 
is entered in columns 32-37, columns 7-22 must be blank. 


Fields may be listed on the sheet in any order since the 
sequence in which they appear on the printed form is deter- 
mined by the entry in columns 40-43. However, they are 
usually listed sequentially. If later fields overlap the first 
fields specified, the data which is overlayed is lost. 

The sign (+ or -) of a numeric field is in the units position 
(rightmost digit). A minus sign in the units position prints 
as a letter unless the field is edited (see Column 38 in this 
Chapter). 


PAGE 


PAGE is a special word which causes automatic numbering 
of your pages. Enter the word PAGE, PAGE}, or PAGE2 
in these columns if you wish pages (or an individual record) 
to be numbered. When a PAGE field is named in these 
columns without being defined elsewhere, it is assumed to 
be a four-position numeric field with no decimal positions. 
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However, a PAGE field can be defined in input or calcula- 
tion specifications and may be up to 15 positions long. A 
PAGE field defined elsewhere must be defined with zero 
positions. Leading zeros are suppressed, and the sign is not 
printed in the rightmost position unless an edit word or 
edit code is specified. The page number starts with 1 unless 
otherwise specified, and one is automatically added each 
time the PAGE field is written. See Columns 53-58 in 
Chapter 7 for information concerning page numbering 
starting at a number other than 1. 


It is possible at any point in your job to restart the page 
numbering sequence. To do this, set the PAGE field to 
zero before it is printed. One method of setting the PAGE 
field to zero is to use Blank After (see Column 39 in this 
chapter). Another way is to use an output indicator. A 
PAGE field will always be printed even though the field is 
conditioned by an indicator. If the indicator is on, the 
PAGE field is set to zero, and one is added before it is 
written. Remember than one is always added to the PAGE 
field before it is written (see Examples, Example 1). 


The three possible PAGE entries, PAGE, PAGE], and 
PAGE2, may be used for different output files. Do not 
use the same name for two different output files. 


*PLACE 


*PLACE is a special RPG II word which makes it possible 
to write or punch the same field in several locations on one 
record without having to name the field and give its end 
position each time the field is written or punched. The 
fields are written or punched in the same relative positions 
ending in the column specified by *PLACE. For example, 
if you wish fields A, B, and C to appear twice on one line, 
you can specify this in two ways: 


1. Define each field and its corresponding end position 
each time it is to be printed (Figure 155, insert A). 


2. Use the special word *PLACE (Figure 155, insert B). 


Both coding methods produce a line which looks like this: 


Print positions 


1 — 1011 — 20 21 — 3031 — 40 41 — 50 51 — 60 


yy 
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When using *PLACE, all fields named for each record type 
(H/D/T/E) are written or punched as usual in the locations 
specified. The entry *PLACE then causes all of these same 
fields to be written or punched ending at the position speci- 
fied in the *PLACE statements. 


When using *PLACE, remember: 


1. | *PLACE must be specified after the field names which 
are to be placed in different positions in one line 
(see Examples, Example 2). 


2. *PLACE causes ail fields (in a record type) above the 
*PLACE entry to be written or punched. 


3. | *PLACE must appear on a separate specification 
line for every additional time you want the field or 
group of fields written or punched. 


4. The end position specified for *PLACE must be at 
least twice the highest previously specified field end 
position, but not greater than 256. 


5. | Anend position must be specified for every *PLACE 
line. If you do not allow enough space for all fields 
and constants prior to the *PLACE to be printed 
again, overlapping occurs, with the *PLACE field 
overlapping prior characters. The end position must 
not be lower than the preceding end position specifi- 
cation. 


6. The leftmost position of the fields to be moved by 
the *PLACE specification is always assumed to be 


position 1. 


7. When *PLACE is specified for card output, the fields 


and constants named above *PLACE will be repunched. 


Any printed output on the cards will not be reprinted 
unless an * is entered in column 40 of the same line as 
*PLACE. 


8. A *PLACE specification must not be conditioned by 
indicators in columns 23-31. *PLACE is automatically 
conditioned by the same indicators which condition 
the field or fields to be repeated. 


*PRINT 


*PRINT is a special RPG II word which causes fields and 
constants that were punched in the card to be printed on 
the card. This enables you to more easily determine what 
information is found on the card. *PRINT prints the field 
in the positions which correspond one-for-one to the 
columns in which the field is punched (see Examples, 
Example 3). 


When using *PRINT, remember: 


Ll; 


2: 


4. 


*PRINT may be used only once for each record. 


*PRINT must be specified after all punch fields 
which are to be printed on the card are named. 


The *PRINT specification may be conditioned by 
indicators in columns 23-31. Columns 7-22 and 


38-74 may not be used. 


*PRINT may be used on a card file only. 


If you want to print the fields in positions other than 
those which correspond to the punch positions of the 
fields, you must use the card printing option (see Columns 
40-43 in this chapter). 


Date Field 


Often you want the date to appear on your printed report, 
punched card, or output record. Use special words 
UDATE, UMONTH, UDAY, and UYEAR to get the date 
field you desire. The following rules apply to date fields: 


UDATE gives a six-character numeric date field in 
one of two formats (d, m, and y are the day, month 
and year positions in the UDATE field): 


a. Domestic (mmddyy). 
b. United Kingdom/World Trade (ddmmyy). 


The format is specified by an entry in Column 21 of 
the control card. The edited date field is eight char- 
acters long, in one of three formats: 


a. Domestic (MM/DD/YY). 
b. United Kingdom (DD/MM/YY). 
c. World Trade (DD.MM.YY). 


UDAY may be used for days only, UMONTH for 
months only, and UYEAR for years only. 


These fields may not be changed by any operations 
specified in the program. 
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Examples 


Example 1: Figure 156 shows how an output indicator can 
be used to reset a PAGE field to zero. When indicator 15 

is on, the PAGE field is reset to zero and one is added 
before the field is printed. When 15 is off, one is added to 
the contents of the PAGE field before it is printed. 


Example 2: Figure 157 shows the use of the special word 
*PLACE to print the same fields several times on the same 
line. Fields A, B, and C are to be printed four times on 

one line (Figure 157, insert A). In Figure 157, insert B 
*PLACE is specified after the fields which are to be printed 
several times on the same line. All fields to which *PLACE 
applies appear on the same record. The second *PLACE 
causes the original three fields to be repeated on the 
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cee Staab es 7s af fe SN Bree So ap Beh Beeb Al Sc, 
printed line. Fieid D, which appears on the total record, is 


not affected by *PLACE. 


Notice that an end position (columns 40-43) is given for 
every *PLACE. Fields A, B, and C have a total length of 

15 characters; thus the end position for each *PLACE 
allows room for printing 15 additional characters on the 
output line. The resulting printed line is 60 characters long. 
There is no overlapping of output fields. 


Note: If the end position given for the *PLACE field does 
not allow room for all characters to be repeated, previous 
characters in the output line are overlaid by the *PLACE 
field. 
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Example 3: Figure 158 shows how the special word UDATE field (line 09) is punched but not printed because 
*PRINT may be used to cause printing of the output fields it is written after the *PRINT entry. 

on the punched cards. The fields EMPLYE, SERNUM, and 

PAYRT are to be punched on the card (specification lines Notice in Figure 158 that *PRINT is specified after the 
05-07). The *PRINT entry in line 08 causes the three fields fields which are to be printed. All fields to which *PRINT 
written above the *PRINT entry (EMPLYE, SERNUM, and apply appear on the same record. Therefore, the *PRINT 
PAYRT) to print on the card in positions corresponding entry applies only to fields specified in lines 05-07, not to 
one-for-one to the punch positions (see Figure 156). The fields specified in lines 02 and 03. 
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COLUMN 38 (EDIT CODES) Each edit code punctuates differently. If you use an edit 
code in column 38, columns 45-70 must be blank unless 


Use column 38 when you want to: asterisk fill or a floating dollar sign is required (‘*’ or ‘3’ 
entered in columns 45-47). If an edit code is used to punc- 
1. Suppress leading zeros for a numeric field. tuate an array, two spaces are left between elements of the 
array to the left of each element. Only unpacked numeric 
2. Omit a sign from the low order position of a numeric data can be edited. 
field. 
Figure 157 shows the edit codes and how data looks when 
3. Punctuate a numeric field without setting up your it is edited. Each code punctuates the field a little differ- 
own edit word. ently. All codes suppress leading zeros, except the J World 
Trade format for output (J-entry in column 21 of the con- 
A table summarizing the edit codes that can be used is trol card specifications). For this J-entry, all zero balances 
printed above columns 45-70 on the Output-Format Sheet. _and balances with zero values to the left of the decimal 
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1234567 1234567 00012 } 00012 } 000000 | 000000 000000 
Reece on i dl 0/01/20 0/01/20 0/00/00 | 0.00.00 | 0.00.00 | 0/00/00 
ee ee) ee eee 


* The character } is a negative zero. It is printed for the 64 character set, but not for the 48 character set. 





** Zero balances for the World Trade format are printed or punched in two ways, depending on the entry 
made in column 21 of the control card specifications. Two decimal positions are used for illustration. 


Figure 159. Examples of Edit Code Usage 
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comma are written or punched with one leading zero (0,00 Negative Number 

or 0,04). If an edit code is specified on the Output Sheet, —Two Decimal 

and the edit code is to print zero balances, a zero balance Positions— 

field will always have a zero to the left of the decimal End Position 

comma. The edit code cannot suppress it. i Specitied as: 10: 
Output Print Positions 


Normally, when you use an edit code in column 38, you 3 }4}s}6]7|8]o] solr | 
cannot define an edit word in columns 45-70; however, 
there are two exceptions: [ureaites | [| [olof als |x| | 


1. If you want leading zeros replaced by asterisks, enter 
‘* in columns 45-47 of the line containing the edit 
code. 


2. If you want a dollar sign to appear before the first 
digit in the field (floating dollar sign), enter ‘$’ in 
columns 45-47 of the line containing the edit code. 


Asterisk fill and floating dollar sign are not allowed with 
X, Y, and Z edit codes. 


It is also possible to have a dollar sign appear before the 
asterisk fill (fixed dollar sign). This is done in the follow- 
ing way: 


1. ‘Place a dollar sign constant one space before the 
beginning of the edited field. 


2.‘ Place ‘*’ in column 45-47 of the line containing the 
edit code. 


Figure 160 shows the effect different edit codes have on 
the same field with a specified end position for output. 





* K represents a negative 2 


COLUMN 39 (BLANK AFTER) 


ee cae Precip aus Figure 160. Effect of Edit Codes on End Position 
LAITY LX Piunaiion 
Blank Field is not to be reset (blanked or zeroed) 


after writing. 


B Field is to be reset (blanked or zeroed) after 
writing. 


Use column 39 to reset a field to zeros or blanks. Numeric 
fields are set to zero and alphameric fields are set to blanks. 
This column must be blank for Look-Ahead fields, Udate 
fields (UDATE, UDAY, UMONTH, UYEAR), and constants. 
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Resetting fields to zeros is useful when you are accumulat- 
ing and printing totals for each control group. After finding 
the total for one group and printing it, you want to start 
accumulating totals for the next group. Before you do this, 
however, you want your total field to start with zeros, not 
with the total it had for the previous group. Blank After 
will reset the total field to zero after it is printed. 


4 ‘ A fF, + + 
If the field is to be used for output I 


more than once 
(punching and printing), be sure the B is entered on the 
last output line for that field. Otherwise, the field is 


blanked out before all required output is finished. 


If a field name specified with Blank After is a table name, 
the element of the table looked up last will be blanked or 
zeroed. 


COLUMNS 40-43 (END POSITION IN OUTPUT RECORD) 
Disk, Punched Cards and Printed Reports 


Use columns 40-43 to indicate the location on the output 
record of the field or constant that is to be written. You 
enter only the number of the punching or printing position 
of the rightmost character in the field or constant. 


The largest number to be used to indicate end position for 
disk output is 4,096. The largest number for printer output 
depends upon the number of print positions on the printer. 


When *PLACE is specified for the printer (see Columns 
33-37 in this chapter), end position indicates the end posi- 
tion of the last field of the group that is to be printed. Thus 
you must be sure you have indicated an end position that 
allows enough room for all specified fields to be printed. 


Be sure to allow enough space (as indicated by end position 
entries) on your output record to hold edited fields. 


Printing on Cards 


The MFCU prints and punches fields and constants in the 
same positions on a card by using *PRINT in columns 
32-37. If you want to print fields in positions other than 
those which correspond to the punch positions of the fields, 
you must: 


m™ Lor Be 


ee a BB aD 
i. Name the field in columns 32-37. 


2. Place an * in column 40. 


3. Specify an end position for that field in columns 
41-43. The maximum entry for an end position is 
128. 


The field will be printed in the upper portion of the card in 
the position you have specified. 


All lines with an * in column 40 should follow all lines 
specifying punching only and all *PRINT lines for that 
record (see Example). All the punching for a card is done 
before the printing. 


Note: If Blank After (column 39) is specified for a field to 
be punched and printed, the B entry must be entered on the 
last line specifying printing for that field. All the printing 
is done for a card after all the punching, so be careful not 
to blank out a punch field and then try to print it later. If 
*PRINT is the last line specifying printing for a field, the 

B entry is made in the last punching specification line for 
that field. If an * is used in column 40 to print a field after 
it is punched, the B entry is made in the last print specifica- 
tion line for that field. A Blank After entry is correctly 
entered for a punch and print field in Figure 161. 
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Example 


Figure 161 shows several examples of printing on a card. 
The coding shows that the name field will be punched and 
printed in the same card columns. The account number 
field is punched only. The amount due field is punched in 
columns 75-80, but for ease of reading it is printed with an 
edit word in columns 44-52. For the same reason, a con- 


stant is printed to identify the amount due field. 


In line 06, the field AMTDUE is blanked out after it is 
printed by a B entry in column 39. If the B entry appeared 
in column 39 of line 05, the field would be blanked out 
after punching and would not be available for printing. 


COLUMN 44 (PACKED OR BINARY FIELD) 


Entry Explanation 

Blank Field is unpacked numeric or alphameric 
data. 

P Field is to be written on disk in packed 
decimal format. 

B Field is to be written on disk in binary 


format. 


Column 44 must have an entry if a numeric field (decimal 
number) is to be written on disk in packed decimal or binary 
format. Packed decimal and binary fields should not be 
printed and cannot be punched; these fields can be written 
on disk. 


Column 44 must be blank if an asterisk (*) appears in 
column 40 of the same field specification. Column 44 must 
also be blank for fields in a record that precede *PLACE 
with a printer file or *PRINT with an MFCU file. 


After decimal fields have been processed, they may be left 
in the unpacked format. However, for more efficient use of 
disk space, decimal fields can be converted into packed 
decimal or binary format. Fields of four or less bytes are 
converted to two bytes of binary data for output; fields 
from five to nine bytes are converted to four bytes of 
binary data for output. The output device for binary fields 
can only be disk. See Column 43 in Chapter 7 for related 
information pertaining to input packed and binary fields. 


COLUMNS 45-70 (CONSTANT OR EDIT WORD) 


Use columns 45-70 to specify a constant or an edit word. 


Constant 


A constant is any unchanging information that is entered 


by a specification. Constants are usually words used for 


report headings, column headings or card identification. 
To print a constant on a card, an * must be entered in 
column 40 (see Columns 40-43 in this chapter for printing 
on cards). 


The following rules apply to constants (refer to Figure 162 
for examples): 


1. Field name (columns 32-37) must be blank. 


2.  Aconstant must be enclosed in apostrophes. Enter 
the leading apostrophe in column 45. 


3. An apostrophe in a constant must be represented 
by two apostrophes. For example, if George’s 
appears as a constant it must be coded GEORGE”’S. 
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Figure 162. Examples of Output Constants 
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aN 


Up to 24 characters of constant information can be 
placed in one line. Additional lines may be used, but 
each line must be treated as a separate line of con- 
stants. The end position of each line must appear in 
columns 40-43. 


Edit Word 


An edit word gives you more flexibility in punctuating a 
numeric field than an edit code. You directly specify 
whether commas, decimal points, and zero suppression are 
needed, whether the negative sign should print, whether 
the output is dollars and cents, and whether you want a 
dollar sign and leading asterisks. Constants can be used 
within edit words (see Examples of Edit Words in the fol- 
lowing test). 


The following rules apply to edit words: 
1. Column 38 (Edit Codes) must not be used. 


2. Columns 32-37 (Field Name) must contain the name 
of a numeric field. 


3. Columns 40-43 (End Position in Output Record) 
must contain an entry. 


4. An edit word must be enclosed in apostrophes. 
Enter leading apostrophe in column 45. The edit 
word itself must begin in column 46. 


5S. Any printable character is valid, but certain characters 
in certain positions have special uses (see Editing 


Considerations in the following text). 


6. Anedit word cannot be longer than 24 characters. 


~J 


The number of repiaceabie characters in the edit 
word must be equal to the length of the field to be 
edited. See Editing Considerations in the following 
text for a discussion of replaceable characters. 


8. All leading zeros are suppressed unless a zero or 
asterisk is specified in the edit word. The zero or 
asterisk indicates the last leading zero in the field 
to be replaced by a blank or asterisk. 
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wo 


leftmost zero 


Any zeros or asterisks following the 
s (they are not 


or asterisk are treated as constant 
replaceable characters). 


10. Any constant to the left of the zero suppression 
stop character (except $) will be suppressed unless 
a significant digit precedes the constant. 


Editing Considerations 


Always leave exactly enough room on the output file for 

the edited field. If the field to be edited is seven characters 
long on the input record, make sure seven positions allows 
enough space for it to be written on the output file. By the 
time the field is edited, it may contain many more characters 
than seven. 


When computing the length of an edited output field, deter- 
mine how many of the editing characters are replaceable. 
The number of replaceable characters in the edit word must 
be equal to the length of the field to be edited (see follow- 
ing Note). The replaceable characters are: 


Character Use 


0 Zero suppression. 

- Asterisk fill. 

b Blank. 

$ Floating dollar sign (if it appears immediately 


to the left of zero suppress). 


A fixed dollar sign, decimal points, floating dollar sign, 
commas, ampersands (representing blanks), negative signs 
(- or CR) and constant information are not replaceable 
characters, 


Note: There are two exceptions to the rule that the num- 
ber of replaceable characters in the edit word must be 

equal to the length of the field to be edited. The exceptions 
are: 


1. Anextra space must be left in the edit word for the 
floating dollar sign. This ensures a print position for 
the dollar sign if the output field is full. 


Replaceable 


Unedited Edited Unedited Characters 
Field Edit Word Field Field Length in Edit Word 
72432N ‘66, 6S0.66&-’ $7,243.256- 6 7 


No 


An extra space can be left in the edit word if the 
first character in the edit word is a zero. In this 
case, the field to be edited will not be zero suppressed, 
but ali other specified editing will be performed. 


Replaceable 
Unedited Edited Unedited Characters 
Field Edit Word Field Field Length in Edit Word 


00746J ‘0666, 666’ 007,461 6 7 


If it is necessary to show a negative number, a sign must be 
included in the edit word. You may use either the minus 
sign (-) or the letters CR. These print only for a negative 
number; however, the character positions they require must 
be taken into consideration when entering the end position 
of the field on the Output-Format Sheet. Figure 163 shows 
that for the field PERCPL, CR is to be printed for a nega- 
tive balance. Assume the field PERCPL contains the nega- 
tive data 2N(-25%). The printed output would be 25CR. 


Unedited Data Output - Format Sheet 
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Figure 163. Using the Output-Format Sheet to Format Data 
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If PERCPL was positive, CR would not print and the same 
field would appear as 25. 


You may also use a minus sign to indicate a negative 
balance. If you want to leave a space between the number 
and the negative sign, place an ampersand (&) in the edit 
word before the minus sign. PERCPL would then print as 
25K-. 


If you wish to have a dollar sign printed, you also indicate 
this in your edit word. To print a dollar sign at the left of 
the field called SPRICE, put the dollar sign ($) next to the 
first quote mark, then put in the necessary blanks and 
punctuation. A dollar sign in this position is called a fixed 
dollar sign. The SPRICE field in Figure 164, line A can 
look like any of the following (N stands for any number): 


$NNN.NN 
$ NN.NN 
$ N.NN 


$ .NN 


Suppose, however, you do not want a lot of empty space 
between the dollar sign and the first digit when zero sup- 
pression occurs. (This is commonly the case when writing 
checks.) You may fill in this empty space with asterisks 
(*). Instead of using 0 to indicate zero suppression, you 
use the asterisk to indicate that all extra spaces should be 
filled with asterisks. The SPRICE field in Figure 164, line 

B can look like any of the following (N stands for any num- 
ber): 


SNNN.NN 
$ *NN.NN 
$ * *N.NN 


$ *** NN 
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Figure 164. Different Edit Words Used on the Same Field 


You may always want the dollar sign to be next to the 
leftmost digit instead of filling in the space with asterisks 
or leaving extra blanks. This is indicated in the edit word 
by placing the $ next to the zero suppress 0. A dollar sign 
which changes positions depending upon the number of 
positions zero suppressed is known as a floating dollar sign. 
When printed, the SPRICE field in Figure 164, line C can 
look like any of the following: 


$NNN.NN 
$NN.NN 
$N.NN 
$.NN 

Note that an extra space must be left in the edit word for 


the floating dollar sign. This ensures a print position for 
the dollar sign if the output field is full. 


Examples of Edit Words 


Figure 165 shows examples of edit words. All examples 
assume that column 38 is blank. In an attempt to avoid 
confusion about the number of blank positions in an edited 
data field, the symbol # is used to indicate where blank 
spaces appear. Zeros have not been slashed where no con- 
fusion with the letter O is likely to result. 


Examples labeled A-H are sample edit words for some of 
the most frequently desired output formats. The numbered 
examples (1-53) that follow this first group are intended to 
show possible ways of handling many of the editing situa- 
tions with which you might be faced. 


The letters and numbers under the heading Example 
Number in Figure 165 refer to the letters and numbers in 
the following text: 


A. Normal method of editing an amount field. Deci- 
mal point appears between dollars and cents; 
commas offset every three positions in the dollar 
portion of the field. The symbol CR appears in the 
edited data field when the data is negative; other- 
wise, it is replaced by blanks. 


Since zero suppression occurs through the unit- 
dollar position (zero in the edit word just left of 
the decimal point), blanks replace leading zeros and 
constants until a significant digit is encountered or 
through the specified zero. Thus, the decimal 
point and data to its right always appear in the 
edited data. Notice that, since zero suppression 
occurs through the position of the zero in the edit 
word, zero is replaced by a blank when no signifi- 
cant digit appears in the data field. 


B. Normal method of punctuating a quantity field. 
Leading zeros and constants are replaced by blanks 
through the position of the zero suppression zero 
(the next-to-last position in the edit word). Thus, 
if the entire data field is zero, a zero appears only 
in the low-order position of the edited data. A 
minus sign appears in the edited data if the field is 
negative; if not, the minus sign is replaced by a 
blank. The constant ON HAND always appears in 
the edited data as it is specified in the edit word 
regardless of whether the minus sign appears as 
specified or as a blank. 


O 


Normal editing of an amount field. Because the 
zero suppression zero appears in the ten-dollar posi- 
tion of the edit word, leading zeros and constants 
are retained starting with the unit-dollars position. 
Because the dollar sign is placed just left of the zero 
suppression zero, it becomes a floating dollar sign. 
In an edited data field, the floating dollar sign 
always appears to the immediate left of the first 
digit. Notice that an extra position is allowed in 
the high-order portion of the edit word to accom- 
modate the floating dollar sign. The minus sign 
appears as a constant since a zero is specified to the 
left of it. 


Similar to example C, except that zero suppression 
is allowed up to the decimal point, CR is used to 
indicate a negative value, and two asterisks are 
printed at the end of the edited data. In the edited 
data shown, the dollar sign has floated to the left 

to precede the first significant digit. If the unedited 
data were all zeros, it would appear in the output 
record as $.00Kb**. Note, again, the extra position 
in the leftmost portion of the edit word to allow 
for the dollar sign. 


Similar to example D, except that no symbol is 
used to indicate a negative value and the edit word 
includes a fixed dollar sign. Because the dollar sign 
is placed in the extreme left position of the edit 
word, it is a fixed dollar sign. The fixed dollar sign 
always appears in the leftmost position of the edited 
data field. 


This example shows that a space can be left in the 
edited data field between a fixed dollar sign and the 
first digit, even when the entire field contains signifi- 
cant digits. An ampersand (&) in an edit word 
becomes a blank in the edited field. The minus sign 
appears in the edited data if the field is negative. 
The constant GROSS always appears in the edited 
data. 


By not specifying a zero or asterisk, zero suppres- 
sion can occur throughout the field; thus, edited 
data begins with the first significant digit. 


This example shows the use of asterisk fill. 

Asterisks replace all positions in the edit word to the 
left of the first significant digit. If the asterisk were 
in the rightmost position of the edit word, the entire 
edited field would contain asterisks when the data was 
all zero. 
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Figure 165. Examples of Edit Words (Part 1 of 2) 


244 











00 














eee t Oi 2* 34 
***130,579 
LATER 
ATER 
66bbbHKK0.05 Bb 


10/01/66 
15 — b6bbbbKbKb15 — 


| 000000015 — 
000000005 


6666.00 
66666660 


013579 


093066 #9-—30—66 % 


100166 


000000 
000000 
0000001234 


| 093066 | B9B3OKEE BL 


Hf 
le ey 
HCC 


PT i Ss pe 
PoP PEEP Er 


Figure 165. Examples of Edit Words (Part 2 of 2) 
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10. 


11. 


12. 


13. 


14, 


15. 


16. 
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No edit word. The data in the output record has the 
same format as the unedited data. Notice that the 
low-order position of the output field is printed as 
an alphabetic character (J-R) if the source data field 
is negative. 


Same as l. 
Same as l. 


A blank edit word. All leading zeros are blanked and 
any sign in the low-order position of the unedited 
field is removed when the data is edited. Negative 
values are not identified. 


Same as 4. 
Same as 4. 


The effect is the same as shown in examples 4, 5, 
and 6. 


Although the zero suppression zero appears in the 
high-order position of the edit word, suppression of 
the first leading zero cannot be avoided. See Note in 
Editing Considerations in this section for a discussion 
of an exception. 


An ampersand appears as a blank in the edited data. 
The symbol CR appears in the edited data if the field 
is negative. It is replaced by blanks if the field is 
positive. The constant NET always appears in the 
edited data field. 


Same as 9. 


An ampersand appears as a blank in the edited data. 


A minus sign, instead of CR, indicates negative values. 


NET CR indicates when the edited data field is 
negative. Therefore, when the edited field is positive, 
NET CR appears as blanks. 


Same as 12. 


The constant PROFIT appears in the edited data field. 


Negative values are not identified. 
Similar to example 11, except that a fixed dollar sign 
is shown. An extra position is added to the edit word 


to allow for the dollar sign. 


Same as 15, 


a 


18, 


19, 


20. 


20. 


oes 


23; 


24, 


25. 


26. 


27. 


28. 


29, 


= 


Although the dollar sign appears to the immediate left 
of the zero suppression zero, it is a fixed dollar sign 
because it appears in the leftmost position of the edit 
word, 


The floating dollar sign is shown for different numbers 
of leading zeros. Note the extra position in the high- 
order portion of the edit word to allow for the dollar 
sign. 


Same as 18, 


This example shows how some zeros can appear in 
the edited field when the entire field is zero. Zero 
suppression occurs through the position of the 0 in 
the edit word. This leaves two positions in which 
zeros can appear in the edited field. 


This example shows asterisk protection and zero 
suppression for a single position. Note that the 
asterisk is replaced by a significant digit in the posi- 
tion. Negative values are not identified. 


Same as 21. 


Asterisk protection and zero suppression for an 
entire field. Asterisks are replaced by significant 
digits. 


A method of editing an amount field. Punctuation 
and zeros to the left of the first significant digit are 
blanked. The decimal point is also lost when there 
are fewer than three significant digits. The constants 
NET or -NET always appear in the edited field. 


Same as 24. 

Standard method for placing the floating dollar sign 
so that at least the decimal point is retained regard- 
less of the number of leading zeros. The extra posi- 
tion appears in the leftmost position of the edit word 
to compensate for the floating dollar sign. 

Same as 26. 


Same as 26. 


Same as 26. 


30. 


Ww 
he 


32, 


33: 


34, 


35. 


36. 


37. 


38. 


39. 


Asterisk protection and zero suppression to the 
decimal point. The decimal point is retained regard- 
less of the number of leading zeros. Note that 
asterisks replace punctuation when leading zeros are 
suppressed, The second asterisk appears only when 
the edited data field is negative; the third and fourth 
asterisks always appear in the edited field. 


This example shows that a constant (in this case, 

a comma) follows the dollar sign in the edited data if 
the floating dollar sign and the zero suppression zero 
immediately precede a constant. This applies if 
there are a number of leading zeros. In the case of a 
comma, this looks awkward; in the case of a decimal 
point it isa normal approach (see example 27). 


This example shows how to insert a space between a 
fixed dollar sign and the first data digit when all digits 
in the field are significant. An ampersand in an edit 
word appears as a space in the edited data field. 


Normal punctuation of a quantity field. In this 
example, all leading zeros, including the units posi- 
tion, are suppressed (compare with example 34), 


Normal method of showing a single zero in the edited 
data field when the data field contains only zeros. 


Constants in the edit word are handled the same as 
punctuation marks; that is, only constants to the 
right of the first significant digit or the zero suppres- 
sion zero appear in the edited data. Examples 37-38 
show how more edit word constants, other than the 
CR or minus, can be blanked on a positive field. 
Examples 37-39 also show the effect that the position 
of the zero suppression zero has on constants. In 
example 38, an ampersand placed after the first con- 
stant provides a space following that constant in the 


edited data. 

See example 35. 
See example 35. 
See example 35. 


See example 35. 


40. 


ff. 
— 


42. 


43. 


45. 


46. 


47. 


48. 


49. 


50. 


51. 


52; 


53. 


Possible method for editing a social security number 
field. A hyphen (-) is used within the edit word. In 
the example shown, the initial zero is suppressed. 
However, if you want the initial zero to appear in the 
edited data, you must leave an extra position in the 
edit word. See the note under Editing Considerations 
for a discussion of this exception. 


This example shows the use of constants in the edit 
word. In this example, the constant contains an 
apostrophe. 


This example shows the effect that the position of 
the zero suppression zero has on the decimal point 
(or any other constants) and following zeros. 


Same as 42, 


This example shows that a dollar sign separated from 
the zero suppression zero, even if only by a comma, 
is a constant rather than a floating dollar sign. 


Any zero or asterisk to the right of the high-order 
zero Or asterisk is a constant, not a zero suppression 
zero Or asterisk-protection symbol. Examples 47 and 
48 also show that asterisk protection replaces not 
only blanks, but also other constants to the left of 
the first significant digit. 


Same as 45. 
Same as 45. 
Same as 45. 


An example of editing a date field. Since month 
numbers have at most one leading zero, it is not 
necessary to specify a zero suppression zero. Example 
50 shows the use of an ampersand to retain a blank 
space in the edited data. 


Same as 49, 
Same as 49. 


This example shows what happens to the decimal 
point when no zero suppression zero is specified for 
a field which has fewer than three significant digits. 


This example shows how to retain the decimal point 
in a data field which has fewer than three significant 
digits. 
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COLUMNS 71-74 (STERLING SIGN POSITION) 


Use columns 71-74 only when processing sterling currency 
amounts. For complete information, see Appendix D, 
Sterling. 


Printer 
Entry Explanation 
Blank Field is printed in pence only. 
Ss Field is printed in pounds, shillings, and 
in column pence. 
74 


Output Devices Other Than the Printer 


Entry Explanation 

Blank Sterling output is not used. 

Position | Number of the record position which con- 
in tains the sign if the sign is not in the normal 
record position. 

Sin Sign is in the normal position. 

column 74 


248 


For output devices other than the printer, these columns 
are used to indicate the position of the sign of the field. 
The normal position of the sign in a field having decimal 
positions is in the rightmost decimal position of the pence 
field. If the fields have no decimal position, the normal 
sign position is in the last column (unit position) of the 
pounds fields. 


COLUMNS 75-80 (PROGRAM IDENTIFICATION) 


See Chapter 2. 


Appendix A. Running an RPG I! Program—Halts and OCL 


RPG Il HALT PROCEDURES 


Table A-1 is a list of error conditions resulting in a halt 
during execution or compilation of an RPG II program. 
Options available to the operator following each halt are 
also given. The options are: 


0 — Continue: Control is returned to the program, and 
processing continues. 


1 — Bypass: The remainder of the program cycle is 
bypassed, and the next record is read. 


2 — Controlled Cancel: End-of-job operations specified by 
your program are done, tables are dumped, and files are 
closed. 


3 — Immediate Cancel: The job is cancelled without 
returning control to the RPG II program. 


In order to select an option, the operator dials its corres- 
ponding number on the rightmost address/data switch and 
presses the console START switch. (He presses HALT/ 
RESET if the system is running under the Dual Program 
Feature.) A complete discussion of operator procedures 
appears in JBM System/3 Disk System Operator’s Guide, 
GC21-7508. 


Appendix F contains a detailed list of compilation errors. 


OPERATION CONTROL LANGUAGE FOR RPG I! 


In order to compile an RPG II source program, the RPG II 
compiler program must be loaded into main storage. This 
can be done by including an IBM-supplied procedure named 
RPG (located in the Source Library) in the job stream. The 


OCL statements that include the library procedure are: 


/& 
// CALL RPG,R1 


// RUN 





The OCL statements included in the Source Library pro- 
cedure named RPG are shown in Figure A-2. 


Library procedures can be modified. OCL statements 
necessary to modify a library procedure are described in 
IBM System/3 Disk System Operation Control Language 
and Disk Utilities Reference Manual, GC21-7512. 


Running an RPG II Program—Halts and OCL 249 


Operator Options 


Error Description 


Indicator H1 is on 
Indicator H2 is on 
Indicator H3 is on 
Indicator H4 is on 
indicator H5 is on 
indicator H6 is on 
Indicator H7 is on 


Indicator H8 is on 





H9 Indicator H9 is on X X Xx 

HO Halt Indicator Previously Xx x Xx 
Displayed 

11 Negative Square Root x Xx x 

12 Divide Overflow X x Xx 

13 Divide by Zero x x x 

14 Variable Index is Zero, Xx x Xx 
Negative, or Greater 
than the Number of 
Elements in the Array 

15 Table Out of Sequence Xx Xx X 

16 Table not Found xX 4 x 

17 Too Many Entries Xx X X 
For a Table 

18 Compile Time Xx 
Terminal Halt 

19 Compile Time X | | Xx 
Warning Halt 

10 No Input File Opened Xx 

1A Exceeded Specified X 
Object Core 

1c Unidentifiable Halt x X 
Request 

1E Demand File at End of Xx X Xx 
File or Not Opened 

1F End of Extent Xx Xx 





Table A-1. RPG II Halts and Operator Options (Part 1 of 2) 
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Halt Immed. 
E O34 
ee ee eee 





1H Duplicate Load or Add to X Xx X 
an indexed File 


iJ Load or Add Out of x x Xx 
Sequence to an 


Ordered Indexed File 


1L Key Field Changed X Xx x 
During Update 

1P 1P Forms Alignment Xx x 

1U No Record Found for X Xx Xx 


Direct or Indexed 
Random File 


1b Ready to Punch Tables x Xx 
1’ Program to be Cataloged x 

is Not Named 
J1-J9 Record Out of Sequence x Xx Xx 
LO-L9 File Out of Matching Xx Xx Xx 


Record Sequence 


U0-U9 Unidentified Record x XxX x 


Table A-1. RPG II Halts and Operator Options (Part 2 of 2) 


// LOAD $RPG,R1 


@ 


// FILE NAME-$SOURCE,UNIT-R1,RETAIN-S,TRACKS-10,PACK-SYSTEM 


@ 


// FILE NAME-$WORK,UNIT-R1,RETAIN-S,TRACKS-10,PACK-SYSTEM 


// RUN 





@) $SOURCE and $WORK are not supported on the 5445 disk. 


Figure A-2. IBM-Supplied Library Procedure for Compiling an RPG II Source Program 
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This appendix contains two complete RPG II sample pro- 
grams, SAMPL1 and SAMPL2, including specifications 
sheets. After compiling the two programs, SAMPL1 must 
be executed before SAMPL2. These programs can be run 
on any IBM System/3 Disk System. Operator procedures 
for running the sample programs, the compilation listings, 
and the program outputs are included in the JBM System/3 
Disk System Operator’s Guide, GC21-7508. 


Also included in this appendix is an example containing 
three complete RPG II programs. 


SAMPLE PROGRAM 1 


SAMPLI loads 100 records into an indexed disk file. The 
records are created in calculations by means of a program 
loop. SAMPLI should be followed by SAMPL2, which 
prints out the indexed file, verifying that it was properly 
loaded. Figure B-1 shows the completed specifications 
sheet for SAMPL1. 


Control Card Specifications 


This card must be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


These specifications (Figure B-1) describe the files used in 
the program. The indexed output file, DISKOUT, will 
consist of 128-position records with a 6-position key field 
starting in the first record position. DISKOUT is a single 
volume file (01 in columns 68-69). A printer output file 
with a record length of 96 is also defined on the File 
Description Sheet. 


Input Specifications 


The single input file must be further described on the 
Input Specifications Sheet (Figure B-1). 


Appendix B. RPG II Sample Programs 


| Calculation Specifications 


The indexed file is loaded by means of a loop in calcula- 
tions as follows: 


@ line 01: The result field, COUNT, is set to zero. 


@ line 02: The result field, RECNBR, is set to zero. 


@ line 03: REPEAT serves as a label for the loop in 
calculations. 


® line 04: COUNT is incremented by five. 


@ line 05: RECNBR is incremented by one. 


@ line 06: If COUNT compares equal to 505, indicator 
02 turns on. 

@ line 07: If COUNT is not equal to 505, the line on the 
Output Sheet (see the Output-Format Sheet in 
Figure B-1) which is identified by an £ in 
column 15 is written on disk. Thus, COUNT 
becomes the output key field and RECNBR 
becomes a 3-position output field containing 
the record number. 

e@ line 08: The program loops back to the REPEAT label. 
The calculations in lines 4-7 are repeated until 
COUNT compares equal to 505 (100 records 
have been written on the indexed file). 

@ line 09: When the end-of-file card is read (LR indicator 
turns on), one is subtracted from RECNBR to 
restore the field to a value of 100 (the number 
of records which have been loaded). RECNBR 
is then used in an output message on the 
printer (see the Output-Format Sheet in 

Figure B-1). 
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Figure B-1. Specifications for SAMPL1 (Part 1 of 3) 
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Figure B-1. Specifications for SAMPL1 (Part 2 of 3) 
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Figure B-1. Specifications for SAMPLI (Part 3 of 3) 


Output-Format Specifications 


The output files, PRINTER and DISKOUT, are described 

in detail on the Output-Format Sheet. Three total output 
lines are printed after end-of-file has occurred on $SOURCE. 
The printer skips to line 04 before printing the first line 

and double-spaces after printing each of the first two lines. 
The RECNBR field, which now contains a value of 100, is 
inserted into the first output line in positions 29-31. After 
printing the last output line, the printer skips to line 01 of 
the following page. 


The disk record to be written by exception output in cal- 
culations is also described on the Output-Format Sheet. 
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SAMPLE PROGRAM 2 


Sample Program 1 (SAMPL1) must be executed before 
Sample Program 2 (SAMPL2). SAMPL2 reads the indexed 
file created by SAMPL1I and prints out fields from each 
record read. Thus, SAMPL2 verifies that SAMPL1 loaded 
the indexed file properly. The program specifications for 
SAMPL2 are shown in Figure B-2. 


Control Card Specifications 


This card must be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


These specifications describe the files used by SAMPL2 for 
input and output of data. 


The indexed file created by SAMPL1 is named DISKIN in 
this program. It is defined with an EF in column 17 so that 
the program will not end until end-of-file of the disk input 
file. Note that a different block length is given than was 
specified when the file was created. 


A printer file, PRINTER, is described for the printed out- 
put of SAMPL2. Since an overflow indicator is specified 
for the file, later operations can be conditioned on over- 
flow (see the Output-Format Sheet in Figure B-2). 


Input Specifications 


The fields of interest in DISKIN are described in detail on 
the Input Sheet. A character zero in position one of the 
input records will turn on record identifying indicator 01. 


Calculation Specifications 


The field named COUNT is incremented by one on each 
program cycle to keep a running total of the records which 
have been read from DISKIN and printed out on PRINTER. 


Output-Format Specifications 


Three different output lines are described for the printer 
file, PRINTER. 


The first printer line is a heading line which will be printed 
on line 4 of the first output page (conditioned by 1P) and 
each succeeding page (conditioned by OF in an OR relation- 
ship). The printer will double-space (2 in column 18) after 
the heading line is printed. Thus, each output page will 
have a heading consisting of three constant fields and a 

page field. Because the PAGE reserved word has been 

used, pages will automatically be numbered sequentially. 


For each record read from DISKIN (indicator 01 is on), 

a detail line consisting of three fields from each input 
record is written. These fields are reformatted so that the 
output line ends in position 25. 


The printer triple-spaces (3 in column 17) before the total 
line is printed. The total line is printed when end-of-file 
(LR is on) has occurred on DISKIN. The 3-position 
COUNT field which was incremented in calculations is 
followed by a statement in the total line indicating how 
many records were read and printed from DISKIN. If 
COUNT is equal to 100, SAMPL1 and SAMPL2 have 
executed successfully. 
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EXAMPLE PROGRAMS 


This example contains specifications sheets for three com- 


plete RPG II programs: EXMPL1, EXMPL2, and EXMPL3. 


The programs are designed to be run in sequence and can 
be run on any IBM System/3 Disk System. 


Example Program 1 


EXMPL1 loads master records into an indexed file and 
creates a consecutive file of transactions. The transaction 
file will be processed against the master file in EXMPL7. 
EXMPL2 should follow EXMPL1. Figure B-3 shows the 
completed specifications sheets for EXMPL1. 


Control Card Specifications 


This card must be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


These specifications describe the files in the program. The 
input card file, CARDIN, is read from the primary MFCU 
hopper. An E in column 17 indicates that the program 

will end when the last data record in the input file has been 
processed. The indexed output file, MASTER, will con- 
sist of 26-position records with a 5-position key field start- 
ing in the second record position. MASTER is a single 
volume file (01 in columns 68-69). A consecutive output 
file, TRANS, with a 10-position record length is also spec- 
ified on the File Description Sheet. TRANS is also a single 
volume file (01 in columns 68-69). A printer output file, 
PRINTER, with a record length of 78 is also defined on the 
File Description Sheet. 
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input Specifications 


There are two types of records in the input card file, CARD- 
IN: master and transaction. A character M in position 1 of 
the input records will turn on record identifying indicator 
01, indicating a master record. A character A, B, or C in 
position 1 of the input records will turn on record identify- 
ing indicator 02, indicating a transaction record. No se- 
quence checking will occur for either type of record (AA 
and AB in columns 15-16). 


Calculation Specifications 


The field named TOTMAS is incremented by one when 
record identifying indicator 01 is on. This maintains a 
running total of the master records which have been read 
from CARDIN and transferred to disk. The field TOTTRN 
is incremented by one when record identifying indicator 
02 is on, maintaining a running total of the transaction 
records which have been read from CARDIN and trans- 
ferred to disk. 


Output-Format Specifications 


Four different output records are described in these specif- 
ications: one detail record for the master file (MASTER), 
one detail record for the transaction file (TRANS), and 
two total records for the printer file (PRINTER). 


The detail records for MASTER are conditioned by record 
identifying indicator 01. The detail records for TRANS 
are conditioned by record identifying indicator 02. 


Both total lines for PRINTER are printed when the last 
record identifying indicator is turned on (LR in columns 
23-25). The first total line is for total transactions loaded. 
The printer skips to line 4 before the printing of the first 
total line and double spacing occurs before the printing of 
the second total line. The second total line is for total mas- 
ters loaded. The printer skips to line 1 of the next page 
after it is printed. 
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Example Program 2 


EXMPL2 must be preceded by EXMPL1. EXMPL2 reads 
from the transaction file, TRANS, created by EXMPL1 
and accumulates totals for A, B, and C records. EXMPL2 
also retrieves matching master records for transaction rec- 
ords and prints an error message if a matching master rec- 
ord is not found. Figure B-4 shows the completed specifi- 
cations sheets for EXMPL2. 


Control Card Specifications 


This card must be present in every job. It is the first card 
in the source deck. 


File Description Specifications 


The input file for EXMPL2, TRANS (the output transaction 
file for EXMPL1), is read from disk. An E in column 17 
indicates that the program will end when the last data rec- 
ord in the input file has been processed. TRANS is a single 
volume file (01 in columns 68-69). The output file, PRINT- 
ER, will consist of 72-position records. An overflow indi- 
cator (OF in columns 33-34) is being used to condition 
printing of records in the file. The indexed file, MASTER, 


is described as a chained update file to be processed by keys. 


It consists of 26-position records with a 5-position key 
field starting in the second record position. It is a single 
volume file on disk. 


Input Specifications 


There are two types of files specified on the Input Sheet: 
transaction and master. A character A, B, or C in position 
1 of the input records will turn on record identifying indi- 
cator 01, 02, or 03, indicating a transaction record type A, 
B, or C respectively. A character M in position | of the up- 
date records will turn on record identifying indicator 04, 
indicating an update record. No sequence checking will 
occur for either type (AA and AB in columns 15-16). 
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Calculation Specifications 


When indicator 01, 02, or 03 is on, two operations will 
occur: 


1. A matching master record is retrieved for a transac- 
tion record (lines 01, 02, and 03 on the Calculation 
Sheet). 


2. The AMT field of the transaction cards is added to 
the appropriate value (VALUEA, VALUEB, or 
VALUEC) on the master card depending on the type 
of card (record identifying indicator 01, 02, or 03). 


If no matching record is found, indicator 10 will be turned 
on. 


Output-Format Specifications 


Eight printer output lines are described in these specifica- 
tions. Four header lines conditioned by the first page in- 
dicator (1P in columns 23-25) or an overflow indicator 
(OF in columns 23-25) are printed. They will be printed 
at the top of each page of the listing. 


Four detail lines are also printed. A detail line is printed 
for each transaction record with no matching master rec- 
ord (line 20 on page 04 and lines 01-03 on page 05). For 
each type of transaction record, A, B, or C, the accumula- 
tive value is printed (detail lines conditioned by indicators 
01, 02, or 03, and not 10). These detail lines are single 
spaced. 


A detail record is written on disk for the indexed update’ 
file, MASTER. It is conditioned by two indicators — the 
record identifying indicator 04 and not 10 which is the 
record identifying indicator for no matching master record, 
a match between the master and transaction record. 
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Example Program 3 File Description Specifications 


EXMPL3 must be preceded by EXMPL2. EXMPL3 reads The input file for EXMPL3, MASTER, is an indexed single 

from the indexed file, MASTER, and performs the follow- volume file (I in column 32 and 01 in columns 68-69). An 

ing calculation: value A + value B - value C. If the result E in column 17 indicates that the program will end when 

is negative a message is printed. Figure B-5 shows the com- the last data record in the input file has been processed. It 

pleted specifications sheets for EXMPL3. consists of 26-position records with a 5-position key field 
starting in the second record positon. A printer output file, 
PRINTER, with a record length of 78 is also defined on the 

Control Card Specifications File Description Sheet. 


This card must be present in every job. It is the first card 
in the source deck. 
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Input Specifications 


A character M in position one of the input records will turn 
on record identifying indicator 01. 


Claculation Specifications 


The record identifying indicator 01 conditions all calcula- 
tions. Values A, B, and C are accumulated (lines 03-05). 
The calculation, value A plus value B minus value C is per- 
formed and accumulated (lines 01, 02, and 06). If the cal- 
culation is negative the resulting indicator 22 is set on to 
condition the printing of a message. 


Output-Format Specifications 


In these specifications, four header lines are printed, each 
conditioned by the first page indicator (1P) or an overflow 
indicator (OF). 


One detail line is printed for each program cycle. One 
total line is also printed when the last record indicator, LR, 
is on, 
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Appendix C. Detailed RPG II Object Program Logic 
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reached as a result of ex- 
ception output. 






e@ Perform fetch overflow 
if required by exception 
output. 












Perform LO-L9 and 
LR output 


e Set overflow indica- 
tor on if overflow 
line has been reached 


Perform fetch over- 
flow if required 
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32 


Halt (operator option) 


35 


Perform LR 
calculation 


36 


38 


39 















End 
of job 
requested 


Yes 


Controlled 
cancel 





Perform 
LR output 


Perform table 
and array output 


END OF JOB 













Read from file just processed 








e At start, read one record 
from each file except force 
and demand 








Records with look-ahead 
fields are identified only 











27 Valid 
forced 


file 


Yes 


Last Yes 
record 






Record 
with no 

match 
fields 












Record 
identified and. 
record type 
sequence 


10 


Choose highest priority 
record by matching 
field content 
















of job 
conditions 
met 


Yes © 











pa Any 
. Are matching 
12 multiple Yes file out of 
input files sequence 


defined 


Sequence error Halt 
(operator option) 










13 Matching 


fields 
specified 


14 


Turn on record 
identifying indicator 


20 LR 
Yes Br 
indicator 
on 
No 
21 Overflow No 
indicator 
on 
22 Yes 
| Perform overflow output 
23 


Set MR indicator on or off 


e Turn field indicator on or off 


e@ Make data available from last 
record selected 
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e Perform detail calculations, 
also EXCPT, CHAIN, 
DSPLY, READ, and FORCE, 
if requested 









e@ Set resulting indicators on or 
off 


e@ Set overflow indicator on if 
overflow line has been reached 
as a result of exception output 
e Perform fetch overflow if 
required by exception output 


For each record that is processed, the RPG II object pro- 
gram goes through the same general cycle of operations. 
After a record is read, there are two different instances in 
time when calculation operations are performed, and 
records are written out. These instances in time are called 
total time and detail time. During total time, all total cal- 
culation operations (those conditioned by control level 
indicators in columns 7-8 of the Calculation Sheet) and all 
total output operations (those conditioned by control level 
indicators) are done. During detail time, all detail calcula- 
tion operations (those not conditioned by control level 
indicators in columns 7-8) and all detail output operations 
are done. Total time includes steps 18 and 19 of the 

RPG II object program cycie; detail time includes steps 26 
and 3 of the cycle. 


Total calculations are performed before the information on 
the record selected for processing is made available. Detail 
calculations are performed after the information on the 

selected record is made available. The following discussion 


describes this concept in more detail. 


Whenever a record is read, a check is made to determine 

if information in a control field (when one has been speci- 
fied) is different from the control field information on the 
previous record. A change in the control field information 
indicates that all records from a particular control group 
have been read, and a new group is starting. When all 
records from a group have been read (indicated by control 
level indicators being turned on), operations may be done 
using information accumulated from all records in that 
group. At this time, all calculations conditioned by control 
level indicators in columns 7-8 are done. Total output 
operations are performed immediately after all total calcula- 
tion operations are completed. Remember that information 
on the record read at the beginning of the program cycle is 
not used in these operations; only information from records 
in the previous control group is used. 


Detail calculations (all calculations not conditioned by 
control level indicators in columns 7-8) occur after the 
information on the selected record has been made available. 
Detail calculations are used to calculate values needed each 
time a record is processed. They are also used to calculate 
totals for the current control group (if control fields are 
specified). Immediately after detail calculation operations 
are completed, detail output operations are performed. 


The specific steps taken in the program cycle are shown in 
Figure C-1. The item numbers in the following description 
refer to the numbers in the figure. A program cycle begins 
with step 3 and continues through step 25. 
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fa 


SA. 


li data files to be used by the RPG II object pro- 
gram are opened; that is, they are prepared to be 
processed by the object program. Pre-execution 
time tables and arrays are loaded before the first 
program cycle. 


The object program performs all output conditioned 
by the 1P indicator. This output is performed only 
once per job and does not fall within the program 
cycle (steps 3 through 25). 


The object program performs all specified heading 
and detail output operations whose conditions are 
satisfied. This includes specifications that are con- 
ditioned by the overflow indicator if the overflow 
routine has been fetched. 


The object program performs a test to determine if 
the overflow line was encountered during detail cal- 
culations in the previous cycle or when heading and 
detail records were written in the current cycle. If it 
was, the overflow indicator turns on. Otherwise, the 
indicator turns off, unless the overflow routine was 
fetched in step 3. 


The object program tests the halt indicators. If the 
halt indicators are off, the program branches to 
step 6. 


The execution of the program is stopped once for 
each halt indicator that ison. The operator selects 
one of three options: continue, controlled cancel, 
or immediate cancel. See Appendix A for an explan- 
ation of operator options. 


If the operator desires to continue the job, the 
program returns to step 5 to test for other halt indi- 
cators. If the operator selects one of the cancel 
options, a branch is taken to step 34. 

All record identifying indicators and indicators 1P, 
L1-L9, and H1-H9 are turned off. 


The program tests to see if the LR indicator is on. 
If it is, the program branches to step 26. 


The program reads (and translates, if necessary), the 
next input record. At the beginning of processing, 
one record from each input file (except forced files 
and demand files) is read. If the file has look-ahead 
fields, it is read only on the first cycle. After that, 
records with look-ahead fields are identified only. 


11. 


12. 


13. 


14, 


15. 


16. 


ie 


18. 


The program performs a test to determine if the 
record is an end-of-file record. If an end-of-file 
condition has occurred, the program branches to 
step 11. 


If an end of file has not occurred, the program per- 
forms a test to determine if the input records are in 


the sequence specified for them on the Input Sheet. 19, 


If the sequence is incorrect, the program branches to 
step 32. The program also branches to step 32 if 
non-sequential input records are specified and the 
record cannot be identified. 


If end-of-job conditions have been met, a branch is 
taken to step 26. All files for which an E has been 
specified in column 17 of the File Description Sheet 
must be at end of file. 


20. 


When multiple input files are used, it is necessary to 
select the next record to process. A branch to 
step 27 is made. 


If there is only one input file, no record selection is 
needed. A test is made to determine if sequence 
checking has been requested. If so, a branch is taken 
to step 30. 


N 
N 


The record identifying indicator specified for the 
current record type turns on. Data from the current 
record type is not available for processing until 

step 24. 


23 


If the record contains control fields, the object pro- 
gram performs a test to determine if a control break 


has occurred (the contents of the control field are 4 


not equal to the contents of a previously stored field). 
If a control break has not occurred or control fields 


oe 


are not specified, the program branches to step 17. 


25% 


If a control break has occurred, the control level 
indicator reflecting the condition is turned on. All 
lower level indicators are also turned on. 


If this is the first program cycle, the program 
bypasses all total calculation and output operations 
and branches to step 20. 


All calculations conditions by control level indicators 
(columns 7-8 of calculation specifications) are per- 
formed and resulting indicators are turned on or off 
as specified. If the LR indicator is on, calculations 


21; 


conditioned by LR are done after other total calcula- 
tions. File translation, if specified, is done for excep- 
tion output, chain, and read operations. Fetch over- 
flow is performed if it is required by exception out- 
put. If the overflow line has been reached because of 


exception output, the overflow indicator is turned on. 


All total output that is not conditioned by an over- 
flow indicator is performed. The program performs 
a test to determine if an overflow condition has 
occurred. If an overflow condition has occurred at 
any time during this cycle, the overflow indicator 
turns on. If the LR indicator is on, output condi- 
tioned by LR is done after other total output. File 
translation, if specified, is done for total output. 
Fetch overflow is performed if required. 


The program performs a test to determine if the 
last record indicator (LR) is on. If the indicator 
is on, the program branches to step 37. 


The program performs a test to determine if any 
overflow indicators are on. If no overflow indicators 
are on, the program branches to step 23. 


All output operations conditioned by a positive (no 
N preceding the indicator) overflow indicator are 
performed. File translation, if specified, is done for 
overflow output. 


The MR indicator turns on if this is a multifile job 
and the record to be processed is a matching record. 
Otherwise, the MR indicator turns off. 


Field indicators are turned on or off as specified. 
Data from the last record read and from specified 
look ahead fields is made available for processing. 


Any calculations not conditioned by control level 
indicators (columns 7-8 of the calculation specifica- 
tions) are performed, and resulting indicators are 
turned on or off as specified. File translation, if 
specified, is done for exception output, chain, and 
read operations. Fetch overflow is performed if it 
is required by exception output. If the overflow 
line has been reached because of exception output, 
the overflow indicator is turned on. Processing con- 
tinues with step 3. 
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26. 


27. 


28. 


29. 


30. 


31. 
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The last record indicator (LR) and ail control ievei 
indicators (L1-L9) are turned on and processing 
continues with step 18. 


If a file has been forced, the next record in that file 
is selected for processing and a branch is taken to 
step 14. 


If a record with no matching fields is found in a 
normal input file which is not at end of file, it is 
selected. 


When matching fields are specified, the normal file 
with the highest priority matching record field is 
selected. If two or more files have the equal and 
highest priority matching record fields, the highest 
priority file of those is selected. (The primary file 
has the highest file priority, the first specified 
secondary file is next, and so forth.) 


The match field value is compared to the match field 
value of the last record. If it is in sequence, the 
record is accepted and processing continues with 
step 14. If the record is out of sequence, processing 
goes to step 31. 


The execution of the program is stopped because a 
file with matching fields is out of sequence. The 
operator’s option, indicated in step 33, is to bypass 
(read the next record from the same file) or cancel 
the job. 


G2 
1) 


33. 


34. 


35. 


36. 


37: 


38. 


39: 


The execution of the program is stopped because of 
a record type sequence error or an unidentified 
record. 


Step 33 tests the operator’s decision either to bypass 
the record which causes the error condition (branch 
to step 4) or to cancel the job. 


If the operator elects to terminate the job by means 
of a controlled cancel, steps 35 through 39 are per- 
formed. If the operator selects an immediate cancel, 
the job is terminated. 


All operations conditioned by the LR indicator are 
done. 


Same as 35. 

The program writes out any tables or arrays for 
which a To Filename is specified on the Extension 
Sheet. Output tables or arrays are translated, if 


necessary. 


All files used by the program are closed (final 
termination functions are done). 


End of job occurs. 


The RPG II language can handle British sterling data. The 
use of sterling data, however, must be indicated to the 
RPG II compiler. This requires special Control Card speci- 
fications, Input specifications, and Output-Format specifi- 
cations. 


System/3 can process pence data only. Input data, however, 
may be in pounds, shillings, pence, and pence decimals. 

RPG II automatically converts the sterling amounts in the 
input field into pence so that processing can be done. All 
records are punched or printed in pence unless otherwise 
indicated by certain specifications. 


Since sterling requires the use of special entries in three 
different types of specifications, each type will be con- 
sidered separately. A column by column description is used. 
However, only those columns affected by the use of sterling 
are described. Those that are not described have the same 
entries as described in the main sections. 


CONTROL CARD SPECIFICATIONS (COLUMNS 17-20) 


Entry Explanation 

0 Records are only printed, not punched. 
1 Indicates IBM format. 

2 Indicates BSI format. 


Sterling Amount :&: 15: 10.5 
(one decimal position, unsigned) 


+ a 
aS 
g | 2 
c = 
2 = 
9 £ 
a. n 


Decimals 


1BM/IBM 


18M/BSI 


BS1/BSI 


1 ~~ «~ |; Pence (d) 


BSI/IBM 





Figure D-1, Sterling Formats for Punched Output Records 


Appendix D. Sterling 


Use columns 17-20 to indicate the format in which the data 
is recorded. Two forms are available, IBM or BSI. These 
two formats allow variations in the number of record posi- 
tions used for shilling and pence fields. As you read about 
entries in columns 17-20, refer to Figure D-1 which shows 
sterling data in various formats. 


Column 17 (Input Shilling Field) 


IBM Two columns are used in the shilling field. 
The field may contain a number from 00-19. 
BSI One column is used in the shilling field. 


Because this one column shilling field may 
contain a maximum value of 19, there must 
be a way of representing a two digit number 
in a one column field. The following char- 
acters are used to do this: 


0-9 0-9 shillings. 
& 10 shillings. 
A-I 11-19 shillings. 


Column 18 (Input Pence Field) 


IBM One column is used in the pence field. The 
following punches are used to punch pence 


data into the card: 


0-9 0-9 pence. 
-(minus) 10 pence. 
& 11 pence. 


BSI One column is used in the pence field. The 
following are used to punch pence data in 
the BSI format: 

0-9 0-9 pence. 
& 10 pence. 
-(minus) 11 pence. 


Column 19 (Output Shilling Field) 


See Column 17 for details on formats. 
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Column 20 (Output Pence Field) 
See Column 18 for details on formats. 
When using sterling, remember: 


1. It is possible to combine the two formats (see 
Figure D-1). For example, the shilling field may be 
in IBM format and the pence field in BSI format. 


2. Sterling fields written on the printer are not in IBM 
or BSI format. Instead they are always in print 
format which consists of two shilling positions and 
two pence positions in addition to a maximum of 
three decimal positions and nine pound positions. 


INPUT SPECIFICATIONS 
Columns 1-43 


See Chapter 7 for information concerning columns 1-43. 


Columns 44-51 (Field Location) 


Columns 44-51 are used to indicate the location of the 
sterling field on the card. Entries in these columns are the 
same for fields containing sterling data as for fields not con- 
taining sterling data. Keep in mind, however, that the total 
length of any sterling field before and after conversion to 
pence must not be greater than 15 characters. (The RPG II 
compiler converts all fields to pence.) See Columns 44-51 
in Chapter 7 for correct entries. 


The field length includes pounds, shillings, pence, and 
decimal positions. The field length must be large enough 
to include at least one pounds position, but no more than 
nine. The number of positions in the shilling and pence 
fields is determined by the type of format used (see 
Columns 17-20 in Chapter 3). 


Column 52 (Decimal Positions) 


Use column 52 to indicate the number of decimal positions 
in the pence field. The maximum number of positions is 
three. Therefore, you may enter any number from 0 to 3 
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Columns 53-58 (Field Name) 


Use columns 53-58 to name your sterling field. Remember 
that the same name cannot be used for both a sterling field 
and a decimal field. See Columns 53-58 in Chapter 7 for 
rules on forming field names. 


Columns 59-62 


Columns 59-62 may not be used with sterling fields. Leave 
them blank. 


Columns 63-70 


See Chapter 7 for information concerning columns 63-70. 


Columns 71-74 (Sterling Sign Position) 


Use columns 71-74 to indicate the position of the sign in 
the sterling field. Normally, when there are decimal posi- 
tions, the sign is in the righmost decimal position of the 
pence field (see Example 1). The sign of the field is found 
in the rightmost character of the pounds field, however, 
when there are no decimal positions (see Example 2). 


The sign need not appear in these standard positions. In 
fact, the sign does not even need to be within the field. 
However, the sign position, wherever it is, must not only 
contain a zone entry but also a valid digit entry to ensure 
that the sign position will be recognized. 


Enter an S in column 74 when the sign is in the standard 
position. However, when the sign is not in the standard 
position, enter the number of the record position (1-4096) 
in which the sign is found. The number entered must end 
in column 74, 


Example 1: Figure D-2, insert A shows that the correct 
position of the sign when decimals are used is in the right- 
most decimal position of the pence field. Notice that the 
minus sign combined with a 5 (the number in the last deci- 
mal position) punched out as an N, 


Example 2: Figure D-2, insert B shows that the correct 
position of the sign, when decimals are not used, is in the 
rightmost pound position. Notice that the minus sign, com- 
bined with a 7 (number in the rightmost pound position), 
punches out asa J. 


Sterling Amount:-£211:3:11.75 
(two decimal positions) 


@ 


4 
wu 
TG 
c 
3 
o 
a. 


Shillings (s ) 
Pence (d) 
Decimals 


iBM/IBM 
1BM/BSI 
BS!/BS! 


BS!I/IBM 


Sign of the field 





Sterling Amount: -£ 301:0:9 
(no decimal positions) 


Pounds (£) 
Shillings (s) 


Decimals 


iBM/IBM 


IBM/BSI 


BS!/BSI 


BSI/IBM 


Figure D-2, Sterling Amounts in All Available Formats 


OUTPUT SPECIFICATIONS 
Columns 1-37 


See Chapter 9 for information on columns 1-37. 


Column 38 (Edit Codes) 


The RPG II compiler automatically causes zero suppression 
of the leftmost digits of the shilling and pence fields. How- 
ever, if you wish the pounds field to be zero suppressed you 
must specify editing. A Z in column 38 causes the pound 
portion of the field named in columns 32-37 to be zero 
suppressed. It also removes the sign of the field before the 
field is printed. 


Example: After conversion from pence to pounds, shillings, 
and pence, the field containing a value of 001040201 
(00104 pounds, 02 shillings, and 01 pence) is printed as 
1040201 if zero suppression has been specified. If zero 
suppresison has not been specified, the field prints out as 
00104 2 1. 


Column 39 (Blank After) 


See Chapter 9 for further information. 


Columns 40-43 (End Position in Output Record) 


Use columns 40-43 to indicate the end position of the 

field on the output record. The formats (IBM or BSI) which 
were specified on the control card are not used on printed 
output. Printed output requires two positions for pence, 
two positions for shillings, from one to nine positions for 
pounds, and from zero to three positions for decimals. 
Keep this in mind so that you are sure to allow enough 
room on the record for the entire field. See Columns 40-43 
in Chapter 9 for correct specifications. For output devices 
other than the printer, the length required depends on the 
format used (see Columns 40-43 in Chapter 3). 


Column 44 


Column 44 is not used. 


Columns 45-70 (Constant or Edit Word) 

If edit code Z is not used, columns 45-70 may be used to 
edit an output field. Each edit word used is composed of 
three sections or fields: the pounds field, the shillings field, 
and the pence field. When using edit words, you may use: 


1. Floating and fixed pound signs. 


2. Zero suppression of the pounds field. 
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3. CRand minus (-) symbols 
4. Asterisk fill. 
5. An ampersand to cause a blank in the edit word. 


6. Any constant information. 
When editing sterling fields, remember: 
1. Anedit word must be enclosed by single quotes. 


2. Two positions must be allowed for the shillings field 
in every edit word. Two positions must be allowed 
for the pence field. 


3. At least one character should be inserted between the 
pounds and shiliings fieids and the shillings and pence 
fields in order to separate them. Any character except 
a blank may be used to separate the shillings and 
pence fields. A comma, however, is permitted within 
the pounds field and a decimal point is permitted 
within the pence field. 


4. Zeros in the pounds field may be suppressed by 
putting a zero suppression zero in the edit word. The 
shillings and pence fields are always zero suppressed 
automatically. 


5. | When specifying the floating pound sign, there must 
be at least one pound field position preceding the 
shillings field and following the pound sign. 


6. Asterisk fill, if desired, must be specified by placing 
an asterisk in the pounds field. This causes the 
pounds field to fill with asterisks, 


Figure D-3 shows valid examples of editing a sterling field. 
£ denotes the pound sign, S the shilling sign, and d the 
pence sign. See Columns 45-70 in Chapter 9 for more in- 
formation on edit words. 


Columns 71-74 (Sterling Sign Position) 
or printed output records, colu 
if the pence field is to be converted to pounds, shillings, iad 
pence before it is printed. It may not contain a numeric 
entry. If blank, the field is printed in pence. 


oras, COsumn 74 must c 


© 
r3 
et 


For punched card or disk output, the same entries are used 
as on the input specifications. An S is entered in column 74 
when the sign is to appear in the standard position. When 
the sign is not in the standard position, columns 71-74 must 
contain the number of the record position (1-4096) in which 
the sign is to appear. 
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Column 75 







Unedited Field 
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000M0510 


















061406 

































OOO05N0604 














































































OAO17A204G 


£1 13: 4CR 





iS 
J Zero Balances : a Remove ; 
Z| to Print Plus Sign aa 
Field Name 8 ce é : | y | f | “a he Pcsition 
g =| in e No | Yes 3 | iC | L |Z = Zero 
8 8 < Output 3 No No { 4 > 1M | ——— 
2 sg & Record & 
| wya 1 Constant or Edit Word 
27|28|29|30 31 }32 33 34 35 36 37[38 940 41 42 43/44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70|71 72 73 74 
P| i75y 
ea 
a L7S| 
4 - 
| '16 
lo: a er | ' ! 
eas) : -$-+-+ $b - +--+ 
' ‘ tea Ge i oe ‘ 
‘fio ‘ : | 
Li] HH 
4} 4 + tt + - Sha | 1 
Blt Tit | iI s 
| t + + ++ =f + + 
' i . i 
bebe a 4 pda eee ar at +44 
| iy } i i The Sieh ak Ot Pee a a ff if 
Coe eae al eR ! | 





Figure D-3, Edit Words for Sterling Fields 
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Appendix E: RPG II Reference Tables 


Type of Function of Operation Operation 
Operation Code 
(columns 


Indicators 
Position 
Resulting 
Indicators 


28-32) 


Arithmetic 
Operations Clear Result Field and add Factor 2. 








| Subtract Factor2fromFactor?1. = ss] SUBTCT OT OT RE RI R[ OTTO} OO 
| Clear Result Field and subtract Factor2. == =s—s || = ZSUB. [| O| O| B/ R| R{/O}]O/O0/0 | 
| Multiply Factor 1byFactor2. ss Cd SC MULT COT OL OT RE RE R{OloOjtol|o | 
| Divide Factor1byFactor2. sss | CIV CLT OT OT RE RR RIT O}O!O!|O | 
|_Move remainder of preceding division toa Result Field. | MVR | O| O/| B/ B] R|O/|O|B/O | 
|_Sum elements of an array and put sum in Result Field. | XFOOT | O/| O| B| R| R|O/}O/|[O]|0 | 
| Derive the squarerootofFactor2, ss | 3 SCSORT | OF OF BL RE R}|OTLOJLO]B | 
Move | Move Factor 2 into Result Field, right justified. = || Move | o|o|sB/|R|R|olo|B |B | 
Operation | Move Factor 2 into Result Field, left justified. =—S»s-—ss | ~=@MOVEL_ | O| O| B/ R[ R|O{O/] BB 
Sale Rea el ll lea 
low-order position of Result Field. ee hes 
Move zone from high-order position of alphameric Ce oer ye yeas 
Factor 2 to high-order of alphameric Result Field. 
Move zone from low-order position of Factor 2 to high- MLHZO Pelee R Pee 
order position of alphameric Result Field. ete 
Move zone from high-order position of alphameric MHLZO Pee ue ed 





Factor 2 to low-order position of Result Field. 


| Compare Factor1toFactor2, =< | ~3comP | OL OO] RI Ri BI] BB BIR | 
Testing 


Identify the zone in the leftmost position of an TESTZ 
Operations 


alphameric Result Field. 
Binary [ Seton specifiedbits. =F BITON, | Of O| BL R| RL OTB |B] B | 
Field | Setoffspecifiedbits == CE BITOF =[T Of OL B/ R| RL OTB BIB | 
Operations | Test specified bits, ———=Ss=~=~‘;S™CC*di;CSCTSTB_ [| Of Of 8] R[R[oO|se |e {R_ 
Setting | Set one, two, or three specific indicators on. | SETON | 0] 0|6|68|8|6 |68|6|A_ 
Indicators __[ Set one, two, or three specific indicators off. ___—=«it_—-SseTOF | Of o| 8] 8|e|e8 |e {sR | 


Branching Branch to another RPG II calculation specification line. GOTO fojo{lslr{isplspiepf{s i] B4 
Within Identify the name in Factor 1 as a destination label TAG 
RPG I to which GOTO may branch. 

Table Lookup. coxup | o|lo/{r{[rRi[olo o/s | 
Operations 


| ArrayLookup, ——CSStKUP Of Of OT RI RY] BIB {SB ({B I 
Subroutine Beginning of the subroutine. BEGSR | *{|B{;trR{[_sp{[sp{]sB {[B{BI{B | 
5 = 


End of the subroutine. ENDSR * B B B B B B B 
[ Call to execute the subroutine. ___——=Ss~=~=~=~“‘*~*wdCEXSR=~=C«PCO LOOP BT Rie le |e le |e 


rprogram | Forcing record to bereadnext,. | Force [es] o]e]A|lsle [ele |e 
Control 


poto/{s/s|sB{/sB [8 ]B {B | 
A field is printed on the printer-keyboard and/or data DSPLY 
is entered via the printer-keyboard into a field. 
A record is ead from a demand file | rean [ofo|s|r{ele /e/s |: 
A record is read from a disk file. j}o|r}riei{e |B |B {| 


Debug Aid in finding programming errors. DEBUG 
Function 


O - Optional 
R - Required 
B - Blank 
* Columns 7-8 must have an SR entry for all subroutine lines. 
** See Columns 54-59 in chapter 8 for more information. 













Compare 
and Zone 





































«#** The control level entry can be given for any operation code if it isan AN or OR line (see Columns 7-8, chapter 8). 


Table E-1. Operation Codes 
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Indicator Where Specified Where Used Turned On Turned Off Notes 






























Field Indicators Input form Indicator (calc.), By Blank or Zero in Before this field 

























01-99 Output !ndicators specified field. status is to be 
Zero and Blank By Plus in specified tested the next 
Plus field. time. 


Minus By Minus in specified 


field. 












H1 through H9 Input form 


Catculation form 


Indicator (calc.), 
Output 


Whenever the specified 
field status or record 
identification condi- 
tion is satisfied. 






Internal, at the end 
of the detail cycle. 






















Internal Control Level (calc.), 


Output Indicators 


After processing the 

last record of the last 
file (see column 17 of 
File Descr.). 


Note 1 
(Cannot be 
SETOF) 

Note 2 


At the beginning of 
processing. 















LO Internal Control Level (caic.), | At beginning of the Is never turned off Cannot be 
(Level Zero) Output Indicators program. by RPG. SETON or 
SETOF 


Control Level Input form Control Level (calc.}, | When the value ina At end of follow- Note 1 

Indicators Columns 59-60 Indicators (calc.), control field changes. ing detail cycle. 

L1 through L9 Output Indicators All indicators of the 
lower levels are also 
turned on. 

MR Internal Indicators (calc.), If the matching-field When all total cal- 

(Matching) Output Indicators contents of the record culations and output 

of a secondary file are completed for 
match the matching- the last record of 
field contents of a the matching group. 
record in the primary 
file. 


OA, OB, OC, OD, File Description Indicators (calc.), If the destination of a At the end of the Note 3 
OE, OF, OG, OV form Output Indicators space, skip, or print detail cycle. 

operation falls within 

the forms overflow area. 





Record Identifying Input form Indicators (caic.), When specified record Before the next Note 1 
Indicator 01-99 Columns 19-20 Output Indicators has been read and be- record is read 
Field Record fore total calculations during the next 


Relation are executed. processing cycle. 


Resulting Calculation form Indicators (calc.), By a positive balance The next time a 

Indicators 01-99 Output Indicators in field, by a negative calculation is per- 
Plus balance in field, by formed for which 
Minus Zero balance in field. the program speci- 


Zero fies the indicator as 
Compare operation a resulting indicator 
High if Factor 1> Factor 2 and the specified 
Low if Factor 1< Factor 2 condition is not 

Equal if Factor 1 = Factor 2 satisfied. 





Table E-2. Summary of Program Indicators (Part 1 of 2) 


284 


| indicator Where Specified Where Used Turned On Turned Off 
ee 


Look-up operation 
High if table >Factor 1° 
Low if table < Factor 1 
Equal if table = Factor 1 
TESTZ operation if a C zone or & is present 
i if a D zone or minus (-) 
is present 
present 
Chain operation By ano record found 
condition. 


1P (First Page) Output Indicators | At beginning of proces-: Before the first 
sing before any input detail record is 
records are read. read. 


Turning indicators on or off can also be accomplished by using SETON and SETOF operation codes. 
All control level indicators (L1-9) are also turned on when LR is turned on. 

The overflow indicator remains on during the following detail calculations and output cycles. 

This indicator is used to condition printing of the first page of the report. 





Table E-2. Summary of Program Indicators (Part 2 of 2) 
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987 


SIOyeoIpU] PHA *E-F 21GeL 















File Output- 
Description Input Specifications Calculation Specifications Format 
Specifications Specifications 










1 





1 Record Field Control 
Overflow | File Identifying | Control Record Field Level 
indicator | Conditioning Indicator Level Relation | Indicator | Indicator 
(33-34) (71-72) (19-20) (59-60) (63-64) (65-70) (7-8) 


Conditioning 
Indicator 
(23-31) 






Conditioning | Resulting 
Indicator Indicator 















ut 





Note: X denotes the indicators that may be used. 

Not valid on look-ahead fields. 

When field named is not a match field or a control field. 

Only for detail or heading lines. 

Cannot condition an exception line, but may condition fields within the exception record. 


Not valid for table input files. 


NaractErs Grouped by Equal Zones Characters grouped by equal digits 


_ | 96 Column Card Code Character 96 Column Card Code 


B-A-8-2 


blank 
: B-A-8-2-1 € 
GROUP 1 B-A-8-4 GROUP 1 ; 
0 








B-A-8-4-1 
B-A-8-4-2 
B-A-8-4-2-1 


GROUP 2 


GROUP 2 
GROUP 3 


GROUP 3 GROUP 4 
: GROUP 5 

GROUP 4 
GROUP 6 


GROUP 5 
GROUP 6 


GROUP 7 


GROUP 8 


GROUP 9 


GROUP 10 


GROUP 11 


nr na 


B-A-8-2-1 
B-8-2-1 
GROUP 12 A-8-2-1 


& 
A 
B 
Cc 
D 
E 
F 
G 
H 
{ 

\ 

f 

J 

K 
L 
M 
N 
O 
P 
a 
R 


GROUP 13 


N<xKxS<cHio 


3 
x 


No punches GROUP 14 


GROUP 15 
B-A-8-4-2-1 


B-8-4-2-1 


GROUP 7 
GROUP 16 Q A-8-4-2-1 
8-4-2-1 


GROUP 8 
i 51689B nen 


Table E-4. Character Grouping by Zone and Digit 


OAN DUO AWNH OD 
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Collating Character Hexadecimal Coiiating Character Hexadecimai 
Sequence Equivalent Equivalent 





Table E-5, Normal Collating Sequence and Hexadecimal Equivalents of Characters 


288 


Sign For Negative Balance Print Out On Zero Balance * 


ee ee 
[we meet fee ee ee 


0,00 or O 


[aos [oes foe 
[fame fame [mee | vm 
jf own one fame fe 
Sn 
i 
an 
ce 
Poe [= fee Pima fom oe 
i 

A 
pep 
a 


Zero balances for the World Trade format are written in two ways, depending on the entry made in column 21 of the control card 
specifications. 


<|< 
that 


The X code performs no editing. 


The Y code suppresses the leftmost zero only. The Y code edits a three to six digit field according to the following pattern: 
nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 
If a data field of six digits is packed on disk and the Y edit code is used with the data field, an error will occur. To solve this 
problem, move the data fietd to another field. 





Table E-6. Edit Codes 
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Block Length Input/Output 
Computed Area Allocated 
by RPG Il by RPG II 





* Files in Group B can require a larger input/output area than files in 


Group A. 
Group A Group B 
Consecutive Output Consecutive Update 
Consecutive Input Indexed Update 
Indexed Input Indexed File 
Processed Sequentially Processed Randomly 
Indexed Output Direct File 


Note: Results are the same for DISK as well as DISK45. 


Table E-7. Block Length and Size of Input/Output Area Computed by RPG II for Disk Files 
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Number of 
Records per 


Key 
Length 





Number of Records (thousands) 


* The bytes of main storage required for the Core 
index is based on one Core Index entry per track 
of file index entries (single volume files only). 


Table E-8. Bytes of Main Storage Required for Core Index 


Tracks 60 

Required 

For File * 50 
40 
30 
20 


10 





Number of Records in File (hundreds) 


* Record storage area only; index area for indexed file is not included. 


Table E-9. File Allocation 


RPG II Reference Tables 291 


292 


This appendix lists the RPG II and BSCA error messages 
for the IBM System/3 Model 10. For each error message, 
this appendix includes an explanation of the message, a 
description of any action the system takes, and suggested 
responses you can give to restart the system or to avoid the 
message when the job is run again. For information on 
other types of messages, see the JBM System/3 Model 10 
Disk System Operator’s Guide, GC21-7508. 


MESSAGE FORMAT 


Each message is preceded by an identification code. This 
code consists of four parts (Figure F-1): 


1. Program identification RG (for RPG ID). 
2. Message number. 


3. Significance code: 


W (Warning) — Warning that an abnormal con- 
dition exists. Corrective action is 
required only if condition is un- 
intentional. 

T (Terminal) — An error condition exists that re- 


requires corrective action before 
the system can continue executing 
the program. 


4. Type of specification containing the error. (This part 
of the code does not appear in every message.) RPG 
II error messages are identified by a specification type 
of H, F, E, L, I, C, or O. BSCA messages are identified 
by a specification type of T, for Telecommunications 
Specifications. (A detailed explanation of the tele- 
communications specifications used to run BSCA pro- 
grams is available in the JBM System/3 RPG II Tele- 
communications Programming Reference Manual, 
SC21-7507.) 


Appendix F. RPG II Error Messages 


RG 230 w 


Program Identification ee | 
Message Number 


Significance Code 


ee ee 0) 


Specification Type = 
(optional) 


Figure F-1. Message Format 


RG001—NO SOURCE 


T—Terminal 

You did not supply a source pro- 
gram for this job. 

The job is terminated. 

You must supply a source program 
and resubmit the job. 


Code: 
Explanation: 


System Action: 
User Response: 


RG002—INVALID OBJECT OUTPUT ENTRY IN COL 10, 
ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in-column 10 of your 


header line is not C, D, P, or blank. 
Blank is assumed and the object 
program is temporarily written in 
the object library. 

If this assumption was wrong, make 
the proper entry (C, D, or P) in 
column 10 and resubmit the job. 


System Action: 


User Response: 
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RG003—INVALID LISTING OPTION IN COL 11, 
ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 11 is neither 


B nor blank. 

Blank is assumed. Therefore, a 
source program listing and the ob- 
ject program are produced. 

If this assumption was wrong, make 
the proper entry in column 11 and 
resubmit the job. 


System Action: 


User Response: 


RG004—INVALID OR BLANK STORAGE SIZE TO 
EXECUTE ENTRY IN COL 12-14, ASSUME SYSTEM 


orern 


SIZE 


Code: W—Warning 
Specification Type: H 
Explanation: Columns 12-14 are blank or they 


contain an entry which is greater 
than 061. 

The size of your system is assumed. 
If this assumption was wrong, make 
the proper entry in columns 12-14 
and resubmit the job. 


System Action: 
User Response: 


RGOOS—INVALID DEBUG CODE IN COL 15, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 15 is neither 
1 nor blank. 
System Action: Blank is assumed. 
User Response: If this assumption was wrong, make 


> if 
the proper entry in column 15 an 
resubmit the job. 


RGO06—INVALID ENTRY IN COL 16, ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: This column is not used; it must be 


left blank. 

Blank is assumed. 

To avoid this message the next 
time the job is run, leave column 
16 blank. 


System Action: 
User Response: 
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RGO08—INVALID ENTRY IN COL 37 AND/OR 
COLUMNS 52-54. ASSUME BLANKS. 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 37 of your 


header line is not I, B, or blank. 
Blank is assumed. 

If this assumption was wrong, 
make the proper entry (I or B) in 
column 37 and resubmit the job. 


System Action: 
User Response: 


RGO09—INVALID ENTRY IN COL 49, ASSUME BLANK 


Code: W—Warning 
Specification Type: H 
Explanation: Column 49 is not used. 


Blank is assumed. 

To avoid this message the next 
time the job is run, leave column 
49 blank. 


Nik on RE eh Si es 
system Action: 
User Response: 


RGO011—INVALID STERLING ENTRY OR ENTRIES 
IN COL 17-20, ASSUME NO STERLING 


Code: W—Warning 
Specification Type: H 
Explanation: Columns 17-20 must be either all 


blank or all numeric (0, 1 or 2). 
Blanks are assumed. 

If the assumption was wrong, make 
the proper entry (0, 1 or 2) in 
columns 14-20 and resubmit the 
job. 


System Action: 
User Response: 


RGO12—INVALID INVERTED PRINT ENTRY IN COL 
21, ASSUME BLANK 


Code: W-—Warning 
Specification Type: H 
Explanation: The entry in column 21 of your 


header line is not I, D, J, or blank. 
Blank is assumed; the job continues. 
If this assumption was wrong, make 
the proper entry in column 21 and 
resubmit the job. 


System Action: 
User Response: 


RGO13—INVALID ENTRIES IN COL 22-25, ASSUME 
BLANKS 


Code: W—Warning 
Specification Type: H 
Explanation: These columns are not used; they 


must be left blank. 

Blanks are assumed. 

To avoid this message the next 
time the job is run, leave columns 
22-25 blank. 


System Action: 
User Response: 


RGO14—INVALID ALTERNATE COLLATING 
SEQUENCE ENTRY IN COL 26, ASSUME S 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 26 of your 


header line is neither blank nor S. 
The entry is assumed to be S. The 
S entry alters the normal collating 
sequence. 

If this assumption was wrong, make 
the proper entry in column 26 and 
resubmit the job. 


System Action: 


User Response: 


RGO15—INVALID ENTRIES IN COL 27-36 AND/OR 
38-40, ASSUME BLANKS 


‘Code: W—Warning 
Specification Type: H 
Explanation: These columns are not used; they 


must be left blank. 

Blanks are assumed. 

To avoid this message the next 
time the job is run, leave columns 
27-36 and 38-40 blank. 


System Action: 
User Response: 


RGO16—INVALID 1P REPEAT ENTRY IN COL 41, 
ASSUME 1 


Code: W—Warning 
Specification Type: H 
Explanation: Column 41 of your header line is 


neither 1 nor blank. 

1 is assumed; the job continues. 

If this assumption was wrong, make 
the proper entry in column 41 and 
resubmit the job. 


System Action: 
User Response: 


RGO17—INVALID ENTRY IN COL 42, ASSUME BLANK 


Code: W—Wanrning 
Specification Type: H 
Explanation: This column is not used; it must be 


left blank. 

Blank is assumed; the job continues. 
To avoid this message the next time 
the job is run, leave column 42 
blank. 


System Action: 
User Response: 


RG018—INVALID FILE TRANSLATION ENTRY IN 
COL 43, ASSUME F 


Code: W-—Warning 
Specification Type: H 
Explanation: The entry in column 43 of your 


header line is neither F nor blank. 
F is assumed; the job continues. 
If this assumption was wrong, 
make the proper entry in column 
43 and resubmit the job. 


System Action: 
User Response: 


RGO19—INVALID ZERO SUPPRESS ENTRY IN COL 
44, ASSUME 1 


Code: W—Warning 
Specification Type: H 
Explanation: The entry in column 44 of your 


header line is neither 1 nor blank. 

1 is assumed and the job continues. 
If this assumption was wrong, 
make the proper entry in column 
44 and resubmit the job. 


System Action: 
User Response: 


RG020—INVALID NON-PRINTABLE CHARACTER 
ENTRY IN COL 45; ASSUME 1 


Code: W—Warning 

Specification Type: H 

Explanation: Column 45 must be blank or 1. 
A blank entry provides a halt on 
nonprintable characters and a 1 
does not. 

System Action: 1 is assumed. 


User Response: To avoid this message the next 
time, make the proper entry in 


column 45 and resubmit the job. 
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RGO2i—INVALID ENTRIES IN COL 46-47, 50-51, OR 
55-74, ASSUME BLANKS 


Code: W—Warning 
Specification Type: H 
Explanation: These columns are not used; they 


must be left blank. 

Blanks are assumed. 

To avoid this message the next 
time this job is run, leave columns 
46-47, 50-51, and 55-74 blank. 


System Action: 
User Response: 


RG022—INVALID ENTRY IN COL 6 OR SPEC TYPE 
OUT OF SEQUENCE 


Code: T-—Terminal 
Specification Type: F,E, L,I, C, or O 
Explanation: The entry in column 6 must be F, 


E, L, I, C, or O and the specifica- 
tions must be in the proper se- 
quence. 

The job is terminated and the en- 
tire specification line is ignored. 
Check to see which specifications 
contain an invalid entry in column 
6 or are out of the sequence re- 
quired in the source program. 
(Valid entries for column 6 are H, 
F, E, L, I, C, or O, and records 
must be in that order.) Resubmit 
the job. 


System Action: 


User Response: 


RG023—INVALID OR BLANK FILENAME IN COL 
7-14 


Code: T—Terminal 
Specification Type: F,1, L,or O 
Explanation: No filename was specified in 


columns 7-14 or the filename 
specified was invalid. 

The job is terminated and the entire 
specification line is ignored. 

Check your source specifications to 
determine which have a missing or 
invalid filename. Make the proper 
entry and resubmit the job. 


System Action: 


User Response: 
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RGO24—FILENAME PREVIOUSLY DEFINED IN COL 
7-14 


Code: T-Terminal 
Specification Type: F 
Explanation: This filename is not unique. 


System Action: The job is terminated and the en- 
tire specification line is ignored. 
Assign a unique name to the file. 


Resubmit the job. 


User Response: 


RG0O25—INVALID DEVICE NAME IN COL 40-46, 
ASSUME DISK 


Code: T—Terminal 
Specification Type: F 
Explanation: The entry in columns 40-46 is not 


a valid device name. 

DISK is assumed, but the job is 
terminated. 

Enter the proper device name in 
columns 40-46 of the File Descrip- 
tion sheet and resubmit the job. 


System Action: 


User Response: 


RG026—INVALID OR BLANK FILE TYPE ENTRY IN 
COL 15, ASSUME DEFAULT FOR DEVICE 


Code: T—Terminal 

Specification Type: F 

Explanation: The file type entry in column 15 is 
not I, O, C, U, or D. 

System Action: O is assumed for files assigned to 


PRINTER, PRINTR2, and CON- 
SOLE; C is assumed for files 
assigned to MFCU1, or MFCU2; U 
is assumed for files assigned to 
DISK and DISK4S. The job is 
terminated. 

Enter the proper file type in col- 
umn 15 and resubmit the job. 


User Response: 


RG028—FILE DESIGNATION IN COL 16 IS INVALID 
FOR EITHER FILE TYPE OR DEVICE. ASSUME 
SECONDARY. 


Code: W—Warning 
Specification Type: F 
Explanation: The entry in column 16 is not valid 


for an input, combined or update 
file. 

S is assumed and the job continues. 
If this assumption was wrong, make 
the proper entry in column 16 and 
resubmit the job. 


System Action: 
User Response: 


RG030—FILE DESIGNATION ENTRY IN COL 16 
INVALID FOR OUTPUT OR DISPLAY FILE, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Column 16 must be blank for out- 


put files and display files (O or D 
in column 15). 

Blank is assumed. 

To avoid this message the next 
time this job is run, make a blank 
entry in column 16. 


System Action: 
User Response: 


RG032—NO PRIMARY FILE SPECIFIED IN COL 16, 
ASSUME FIRST SECONDARY FILE AS PRIMARY 


Code: W—Warning 
Specification Type: F 
Explanation: No primary file was specified (P in 


column 16) of your file description 
specifications. 

The first secondary file is assumed 
to be the primary file. 

If this assumption was wrong, make 
the proper entry in column 16 and 
resubmit the job. 


System Action: 


User Response: 


RG033—NO PRIMARY OR SECONDARY FILE 
SPECIFIED IN COL 16 OR NO FILE DESCRIPTION 
SPEC FOUND 


Code: T—Terminal 
Specification Type: F 
Explanation: No primary or secondary file was 


specified (P or S in column 16 of 
the file description specifications) 

or no file description specifications 
were supplied. 

The job is terminated. 

Supply file description specifications 
or define an input file and resubmit 
the job. 


System Action: 
User Response: 


RG034—MULTIPLE PRIMARY FILES DEFINED IN 
COL 16, ASSUME SECONDARY 


Code: W—Warning 
Specification Type: F 
Explanation: More than one primary file (P in 


column 16) was defined in your 

file description specifications. 

All primary files except the first 
one are assumed to be secondary. 
If this assumption was wrong, make 
the proper entry (S in column 16). 
Resubmit the job. 


System Action: 


User Response: 


RG036—INVALID END OF FILE ENTRY IN COL 17, 
ASSUME E FOR INPUT FILE TYPE WITHOUT RAN- 
DOM PROCESSING 


Code: W—Warning 
Specification Type:  F 
Explanation: The entry in column 17 of your 


file description specifications is 
neither E nor blank. 

E is assumed for input files not 
processed randomly; blank is as- 
sumed for all other files. 

If this assumption was wrong, make 
the proper end-of-file entry in 
column 17. Resubmit the job. 


System Action: 


User Response: 


RG037—INVALID ENTRY IN COL 19, ASSUME F 


Code: W—Warning 
Specification Type: F 
Explanation: The entry in column 19 of your 


file description specifications is not 
F, 

F is assumed. 

To avoid this message the next 
time this job is run, enter F in 
column 19. 


System Action: 
User Response: 
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RG038—END OF FILE ENTRY IN COL 17 INVALID 
FOR FILE TYPE 


Code: W—Warning 

Specification Type: F 

Explanation: Column 17 must be blank for out- 
put, demand, table, and display 
files. 

System Action: Blank is assumed. 

User Response: To avoid this message the next time 


this job is run, leave column 17 blank. 


RG039—INVALID SEQUENCE ENTRY IN COL 18, 


ASSUME PREVIOUS ENTRY 

Code: W—Warning 

Specification Type: F 

Explanation: The entry in column 18 is not A, 
D, or blank. 

System Action: The entry in column 18 from the 
previous specification line is as- 
sumed. 

User Response: If this assumption was wrong, make 


the proper entry in column 18. 


RG040—ENTRY IN COL 18 INVALID FOR TYPE OF 
FILE OR MODE OF PROCESSING, ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Column 18 must be blank for de- 


mand files, output files, record 
address files, display files, and for 
any files processed randomly. 
System Action: Blank is assumed. 
User Response: To avoid this message the next time 


this job is run, ieave column 18 blank. 


RG041—INVALID RECORD LENGTH ENTRY IN COL 
24-27, ASSUME DEFAULT FOR DEVICE 


Code: W—Warning 

Specification Type: F 

Explanation: Incorrect record length was speci- 
fied in columns 24-27. 

System Action: The maximum record length for 


the device is assumed, except DISK 
and DISK45 for which 256 is 
assumed. 

User Response: If this assumption was wrong, make 
the proper record length entry and 
resubmit the job. 
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RG042—INVALID ENTRIES IN COL 20-23, ASSUME 
RECORD LENGTH 


Code: W—Warning 
Specification Type: F 
Explanation: The entry in columns 20-23 is 


neither equal to nor a multiple of 
the record length specified in 
columns 24-27. 

System Action: The record length is assumed. 

User Response: If this assumption was wrong, make 
the proper block length a multiple 
of the record length and resubmit 
the job. 


RG043—DUAL I/O ENTRY IN COL 32 INVALID FOR 
TYPE OF FILE OR MODE OF PROCESSING, ASSUME 
BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Dual I/O (1-9 in column 32) can- 


not be specified for combined, 
demand, table, and update files, or 
for any file processed randomly. 
Neither can dual I/O be specified 
if shared I/O has been specified 
(column 48 of control card speci- 


fications). 
System Action: Blank is assumed. 
User Response: If this assumption was wrong, make 


the proper dual I/O entry and re- 
submit the job. 


RG044—INVALID ENTRY IN COL 32, ASSUME BLANK 


Code: W—Warning 

Specification Type: F 

Explanation: The entry in column 32 was not 
1-9, I, T, or blank. 

System Action: Blank is assumed. 

User Response: If the assumption was wrong, make 
the proper entry and resubmit the 
job. 


RG045—OVERFLOW INDICATOR IN COL 33-34 
PREVIOUSLY ASSIGNED, ASSUME BLANK 


Code: T—Terminal 
Specification Type: F 
Explanation: The same overflow indicator was 


assigned to more than one file. 
Blank is assumed, but the job is 
terminated. 

Assign different overflow indicators 
to each file being described. 


System Action: 


User Response: 


RG046—INVALID OVERFLOW INDICATOR IN COL 
33-34, ASSUME BLANK 


Code: T—Terminal 
Specification Type: F 
Explanation: The entry in columns 33-34 was 


not OA-OG, or OV. 

Blank is assumed, but the job is 
terminated. 

Enter OA-OG or OV in columns 
33-34 if you want to specify over- 
flow for this file, if not, leave 
columns 33-34 blank. Resubmit 
the job. 


System Action: 


User Response: 


RG047—OVERFLOW INDICATOR IN COL 33-34 
INVALID FOR DEVICE, ASSUME BLANK 


Code: W-—Warning 

Specification Type: F 

Explanation: The overflow indicator in columns 
33-34 was not assigned to a printer 
file. 

System Action: Blank is assumed. 


To avoid this message the next time 
this job is run, assign overflow 
indicators to printer files. 


User Response: 


RG048—INVALID OR BLANK EXTENSION CODE 
ENTRY IN COL 39 FOR TABLE OR RECORD ADDRESS 
FILE, ASSUME E 


Code: W—Warning 
Specification Type: F 
Explanation: The extension code in column 39 


was not E for a table or record 
address file. 

E is assumed and the job continues. 
To avoid this message the next time 
this job is run, enter E in column 
39. 


System Action: 
User Response: 


RG049—INVALID EXTENSION CODE IN COL 39 


Code: W—Warning 

Specification Type: F 

Explanation: The entry in column 39 is neither 
L nor blank for output files as- 
signed to the printer. 

System Action: Lis assumed and the job continues. 


User Response: If this assumption was wrong, make 
the entry in column 39 blank. Re- 


submit the job. 


RGO0S1—EXTENSION CODE ENTRY IN COL 39 
INVALID WITH DEVICE OR P, S, C, OR DIN COL 16, 
ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Column 39 can only be used with 


table, record address or printer files. 
Blank is assumed and the job con- 
tinues. 

If this assumption was wrong, make 
the proper entry in column 39 and 
resubmit the job. 


System Action: 


User Response: 
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RG052—DEVICE IN COL 40-46 PREVIOUSLY 
ASSIGNED TO OUTPUT OR NON-TABLE INPUT FILE 


Code: T—Terminal 
Specification Type: F 
Explanation: The device name in columns 40-46 


was assigned to more than one out- 
put or non-table input file. 

The job is terminated and the entire 
specification line is ignored. This 
condition may cause other errors 

to be generated. 

Make the device name entry in col- 
umns 40-46 unique for each output 
or non-table input file (except those 
assigned to disk and console). Re- 
submit the job. 


System Action: 


User Response: 


RG053—INVALID ENTRIES IN COL 47-53, ASSUME 
BLANKS. 


Code: W—Warning 
Specification Type: F 
Explanation: These columns are not used; they 


must be left blank. 

Blanks are assumed and the job 
continues. 

To avoid this message the next 
time this job is run, leave columns 
47-53 blank. 


System Action: 


User Response: 


RGOS5—ENTRIES IN COL 71-72 INVALID FOR TABLE 
FILE, ASSUME BLANK 


Code: W—Warning 

Specification Type: F 

Expianation: Columns 71-72 must be left blank 
for table files, since table files can- 
not be conditioned by U1-U8. 

System Action: Blanks are assumed and the job 


continues. 

To avoid this message the next 
time the job is run, leave columns 
71-72 blank for table files. 


User Response; 
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RG057—INVALID FILE CONDITIONING ENTRIES IN 
COL 71-72 


Code: T—Terminal 
Specification Type: F 
Explanation: Columns 71-72 of your file descrip- 


tion specification are not blank nor 
do they contain one of the external 
indicators (U1-U8). 

The job is terminated. 

Leave columns 71-72 blank or enter 
one of the external indicators (U1- 
U8). Resubmit the job. 


System Action: 
User Response: 


RG058—INVALID ENTRIES IN COLS 67, 70, AND/OR 
73-74, ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Columns 67, 70, and 73-74 are not 


used; they must be left blank. 
Blanks are assumed and the job 
continues. 

To avoid this message when the job 
is run again, leave columns 67, 70, 
and 73-74 blank. 


System Action: 


User Response: 


RG060—-INVALID ENTRY IN COLUMN 48, ASSUME 
BLANK 


Code: W—Warning 

Specification Type: H 

Explanation: The shared I/O entry in column 48 
is neither 1 nor blank. 

System Action: Blank is assumed. 


User Response: If this assumption was wrong, make 
the proper entry in column 48 and 


resubmit the job. 


RG061—INVALID ENTRIES IN COL 7-10, ASSUME 
BLANK 


Code: W—Warning 

Specification Type: E 

Explanation: Columns 7-10 are not used; they 
must be left blank. 

System Action: Blanks are assumed and the job 
continues. 

User Response: To avoid this message when the job 
is run again, leave columns 7-10 
blank. 


RG062—INVALID OR UNDEFINED FROM FILENAME 


ENTRY IN COL 11-18 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

E 

The From Filename in columns 
11-18 of your extension specifica- 
tions is invalid or has not been pre- 
viously defined in file description 
specifications. (The From File- 
name must start in column 11.) 
The job is terminated. 

Make the proper From Filename 
entry in columns 11-18. If col- 
umns 11-18 already contain a valid 
entry, check to make sure that the 
file was defined in your file descrip- 
tion specifications. Resubmit the 
job. 


RG063—TYPE OF FILE INVALID FOR FROM FILE- 
NAME ENTRY IN COL 11-18 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

E 

The From Filename entry does not 
refer to a table or record address 
input file. 

The job is terminated. 

Make sure the entry in columns 
11-18 refers to a table or record 
address input file. Resubmit the 
job. 


RG064—INVALID OR UNDEFINED TO FILENAME 


IN COL 19-26 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

E 

The To Filename in columns 19-26 
of your extension specifications is 
invalid or has not been defined in 
file description specifications. (The 
To Filename must start in column 
19.) 

The job is terminated. 

Make the proper To Filename entry 
in columns 19-26. If columns 19- 
26 already contain a valid entry, 
check to make sure the filename 
has been previously defined in your 
file description specifications. Re- 
submit the job. 


RG065—TYPE OF FILE INVALID OR INCORRECT FOR 
TO FILENAME ENTRY IN COL 19-26 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

E 

The To Filename entry does not 
refer to an output file, or to a file 
processed by a record address file. 
The job is terminated. 

Be sure the entry in columns 19-26 
refers to an output file or to a file 
processed by a record address file. 
Resubmit the job. 


RG067—INVALID TABLE OR ARRAY NAME IN COL 


27-32 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

E 

The table or array name in columns 
27-32 was not specified properly. 
A table or array name must start in 
column 27. A table name must be- 
gin with TAB; an array name must 
not begin with TAB. 

The job is terminated. 

Make the proper table or array 
name entry in columns 27-32 and 
resubmit the job. 


RG068—INVALID OR MISSING NUMBER OF ENTRIES 
PER RECORD ENTRY IN COL 33-35, ASSUME 08 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

E 

The entry in columns 33-35 is 
missing on a specification line 
which has a From Filename in 
columns 11-18, or it is not a one 
to three-digit number (1-999). 
08 is assumed, but the job is 
terminated. 

Define the number of entries per 
record. To do so, make a numeric 
entry (1-999) in columns 33-35. 
Resubmit the job. 


RPG II Error Messages 301 


RGO70—INVALID OR MISSING NUMBER OF ENTRIES 
PER TABLE OR ARRAY IN COL 36-39, ASSUME 05 


Code: T—Terminal 
Specification Type:  E 
Explanation: The entry in columns 36-39 is 


missing or it is not a one to four- 
digit number (1-9999). 

05 is assumed, but the job is 
terminated. 

Define the maximum number of 
entries per table or array. To do so, 
make a numeric entry (1-9999) in 
columns 36-39. Resubmit the job. 


System Action: 


User Response: 


RG071—NO. OF ENTRIES PER RECORD IN COL 33-35 
EXCEEDS NO. OF ENTRIES PER TABLE/ARRAY IN 
COLUMNS 36-39 


Code: T—Terminal 
Specification Type: E 
Explanation: Number of entries per record speci- 


fied is greater than the number of 
entries per table or array specified. 
The job is terminated. 

Make the proper entries in columns 
33-35 and columns 36-39. The 
number of entries per record (col- 
umns 33-35) can be equal to or 
less than the number of entries per 
table or array (columns 36-39). 
Resubmit the job. 


System Action: 
User Response: 


RG072—INVALID OR MISSING LENGTH OF ENTRY IN 
COL 40-42 OR 52-54, ASSUME 05 


Code: T-Terminai 
Specification Type: E 
Explanation: Length of entry specified is missing 


or is not a one to three-digit num- 
ber (1-15 for numeric entries; 1- 
256 for alphabetic entries). 

05 is assumed, but the job is 
terminated. 

Enter a one to three-digit number 
in columns 40-42 or 52-54 to 
define length of table or array 
entries (1-15 or 1-256). Resubmit 
the job. 


System Action: 


User Response: 


RGO73—LENGTH SPECIFIED FOR EACH TABLE/ARRAY 
RECORD IN COL 33-35 AND COL 40-42 OR 52-54 
EXCEEDS RECORD LENGTH 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

E 

Table record length specified (length 
of entry times number of entries 

per record) is greater than the record 
length you specified for the table 
file in file description specifications. 
The job is terminated. 

Make the necessary changes so that 
the table record length does not 
exceed the record length in file 
description specifications. Resubmit 
the job. 


RG0O74—INVALID ENTRY IN COL 43 OR 55, ASSUME 


BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


W—Warning 

E 

The entry in column 43 or column 
55 of your extension specifications 
is not P, B, or blank. 

Blank is assumed. 


Make the entry in column 43 or 
column 55 P, B, or blank. Re- 
submit the job. 


RGO75—PACKED OR BINARY VALID ONLY FOR PRE- 
EXECUTION TIME TABLE OR ARRAY, ASSUME 


BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

E 

Packed or binary format can only 
be specified (column 43 or column 
55) for pre-execution time tables 
or arrays. 

Blank is assumed. 

To avoid this message the next time 
this job is run, leave column 43 and 
column 55 blank for compile time 
tables or arrays and for execution 
time arrays. 


RG076—INVALID DECIMAL POSITION ENTRY IN COL 
44 OR 56, ASSUME 0 


Code: T-Terminal 

Specification Type: E 

Explanation: Decimal position entry in column 
44 or column 56 is not a number 
0-9 or blank. 

System Action: Zero is assumed, but the job is 
terminated. 


Make the proper decimal position 
entry (0-9, blank) in columns 44 
and 56. Resubmit the job. 


User Response: 


RG077—INVALID SEQUENCE ENTRY IN COL 45 OR 
57, ASSUME BLANK 


Code: T—Terminal 
Specification Type: E 
Explanation: Sequence entry in column 45 or 


column 57 is not A, D, or blank. 
Blank is assumed, but the job is 
terminated. 

Make the proper sequence entry 
(A, D, or blank) in column 45 or 
57 and resubmit the job. 


System Action: 


User Response: 


RG079—INVALID ALTERNATE TABLE/ARRAY NAME 
IN COL 46-51 


Code: T-—Terminal 
Specification Type: E 
Explanation: The table or array name in columns 


46-51 was not specified properly. 
The table or array name must start 
in column 46; a table name must 
begin with TAB. 

The job is terminated. 

Enter the proper table or array 
name in columns 46-51 and re- 
submit the job. 


System Action: 
User Response: 


RG0O80—ALTERNATE TABLE/ARRAY NAME IN COL 
46-51 AND/OR 27-32 MISSING FOR ENTRIES IN 
COLUMNS 33-45 AND/OR 52-57, ASSUME COL 33-57 
AND/OR 46-57 BLANK 


Code: T—Terminal 
Specification Type: E 
Explanation: Columns 52-57 contain entries de- 


scribing an alternating table or 
array, but no alternating table or 
array name was specified in columns 
46-51 or no table or array name 
was specified in columns 27-32. 
The job is terminated. 

Make a valid table or array name 
entry in columns 27~32 and in 
columns 46-51 if an alternating 
table or array is described. Resub- 
mit the job. 


System Action: 
User Response: 


-RG082—LENGTH OF TABLE/ARRAY ENTRY IN COL 


40-42 OR 52-54 FOR ALPHA FIELDS EXCEEDS 256. 
ASSUME 256 FOR NON-COMPILE TIME TABLE/ARRAY, 
OTHERWISE ASSUME 96 


Code: T—Terminal 
Specification Type: E 
Explanation: Length of table or array entry 


specified in columns 40-42 or 
52-54 is too large. 

256 is assumed for non-compile 
time tables or arrays; 96 is assumed 
for compile time tables or arrays. 
The job is terminated. 

Enter 256 or less for the length of 
table or array entry specifications 
in columns 40-42 or 52-54. 


System Action: 


User Response: 


RG083—LENGTH OF TABLE/ARRAY ENTRY IN COL 
40-42 OR 52-54 FOR NUMERIC FIELD EXCEEDS 15, 
ASSUME 15 


Code: T—Terminal 
Specification Type: E 
Explanation: Length of numeric table or array 


entry specified in columns 40-42 
or 52-54 is too large. 

15 is assumed, but the job is 
terminated. 

Enter 15 or less for the length of a 
numeric table or array entry in 
columns 40-42 and/or 52-54. 


System Action: 


User Response: 
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RG084—FILE AND RECORD TYPE ENTRIES IN COL 
7-42 AND FIELD TYPE ENTRIES IN COL 43-74 ON 
SAME LINE, ASSUME 7-42 BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

I 

Field type entries (columns 43-74) 
are not specified one line lower 
than file and record type entries 
(columns 7-42). 

File and record type entries (col- 
umns 7-42) are assumed to be 
blank and the job is terminated. 
Specify the field type entries (col- 
umns 43-74) one line lower than 
the file and record type entries 
(columns 7-42). Resubmit the job. 


RG085—INVALID, MISSING OR UNDEFINED FILE 


NAME 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

LI,¢ 

Either (1) the filename was missing, 
(2) the filename was not specified 
properly, or (3) the filename was 
not previously defined in your file 
description specifications. 

The job is terminated. 

Make the proper filename entry. 
Also be sure that the filename has 
been previously defined in file 
description specifications. Resub- 
mit the job. 


RG086—FILENAME IN COL 7-14 DOES NOT REFER 


TO PRINTER FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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T—Terminal 

L 

Filename in your line counter 
specifications does not refer toa 
printer file. 

The job is terminated. 

Place the proper filename entry in 
columns 7-14. The filename speci- 
fied must refer to a printer file. 
Resubmit the job. 


RG087—FORM LENGTH ENTRY IN COL 15-17 INVALID 
OR GREATER THAN 112 


Code: T-—Terminal 
Specification Type: i 
Explanation: The form length entry in columns 


15-17 is not properly specified, or 
is too large. 

System Action: The job is terminated. 

User Response: Enter 112 or less for the form 
length entry in columns 15-17. 
Resubmit the job. 


RG088—INVALID OR MISSING FL ENTRY IN COL 
18-19, ASSUME FL 


Code: W—Warning 

Specification Type: L 

Explanation: Columns 18-19 were left blank or 
the entry specified is not FL. 

System Action: FL is assumed. 

User Response: To avoid this message when this 
job is run again, enter FL in col- 
umns 18-19. 


RG089—OVERFLOW LINE ENTRY IN COL 20-22 
INVALID OR GREATER THAN 112 


Code: T—Terminal 

Specification Type: L 

Explanation: The overflow line entry in columns 
20-22 is invalid or a number greater 
than 112. 

System Action: The job is terminated. 

User Response: Columns 20-22 must be a number 
from 1-112. 


RGO90—INVALID OR MISSING OL ENTRY IN COL 
23-24, ASSUME OL 


Code: W—Warning 

Specification Type:  L 

Explanation: Columns 23-24 were left blank or 
the entry specified is not OL. 

System Action: OL is assumed. 

User Response: To avoid the message when this job 
is run again, enter OL in columns 
23-24. 


RGO91—OVERFLOW LINE IN COL 20-22 EXCEEDS 
FORM LENGTH IN COL 15-17, ASSUME FORM LENGTH 


Code: 

Specification Type: 
Explanation: 
System Action: 


User Response: 


T—Terminal 

L 

Overflow line specified is too large. 
Form length is assumed, but the 
job is terminated. 

Make the overflow line entry (col- 
umns 20-22) equal to or less than 
the form length entry (columns 
15-17). 


RG092—INVALID OR UNDEFINED FILENAME IN COL 


7-14 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

| 

The filename entry is not specified 
properly, or it was not previously 
defined in your file description 
specifications. 

The job is terminated. 

Make the proper filename entry in 
columns 7-14. Also, make sure the 
filename has been previously de- 
fined in file description specifica- 
tions. Resubmit the job. 


RG093—FILE AND RECORD TYPE ENTRIES IN COL 
7-42 AND FIELD TYPE ENTRIES IN COL 43-74 ON 
SAME LINE, ASSUME 43-74 BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T-—Terminal 

I 

Field description entries (columns 
43-74) are not specified one line 
lower than file and record identifi- 
cation entries (columns 7-42). 
Field type entries (columns 43-74) 
are assumed to be blank and the job 
is terminated. 

Specify the field type entries (col- 
umns 43-74) one line lower than 
the file and record type entries 
(columns 7-42). Resubmit the job. 


RG094—FILE AND RECORD TYPE DESCRIPTION 
MUST PRECEDE THIS SPECIFICATION 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I 

File and record type entries in col- 
umns 7-42 do not precede the re- 
lated field description entries in 
columns 43-74 


WWLUIAALLD TY ote 


The job is terminated. 

Enter the file and record type en- 
tries in columns 7-42 of the speci- 
fication line immediately preceding 
the related field description entries 
in columns 43-74. Resubmit the 
job. 


RGO95—AND OR OR LINE OUT OF ORDER 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I,C 

AND or OR line does not follow 
the proper file or record type en- 
tries or is on the first line of calcu- 
lation specifications. (The system 
may have dropped your file and 
record type specifications because 
of other errors in your program.) 
The job is terminated. 

Make sure that the AND or OR line 
follows the proper file and record 
type entries and is not the first line 
in calculation specifications. Re- 
submit the job. 


RG096—AND LINE FOLLOWS LINE WITH NO RECORD 


IDENTIFICATION CODES 

Code: T-—Terminal 

Specification Type: I 

Explanation: The specification line which pre- 


System Action: 
User Response: 


cedes your AND line does not con- 
tain record identification codes. 
The job is terminated. 

Make the proper record identifica- 
tion entries in the line preceding 
the AND line. Resubmit the job. 
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RG097—NO FIELDS DESCRIBED FOR THIS OR 
PREVIOUS RECORD 


Code: W—Warning 

Specification Type: I 

Explanation: No field description entries were 
specified for this or the previous 
record. 

System Action: No action is taken. 

User Response: Make sure that all fields to be used 


from input records are described. 


RG098—INVALID SEQUENCE ENTRY IN COL 15-16, 
ASSUME ALPHABETIC SEQUENCE ENTRY 


Code: W—Warning 
Specification Type: I 
Explanation: The sequence entry in columns 


15-16 is neither a two-digit number 


nor a two-character alphabetic 
entry. 

System Action: A two-character alphabetic entry is 
assumed. 

User Response: If this assumption was wrong, make 


the proper sequence entry and re- 
submit the job. 


RG101—NUMERIC SEQUENCE ENTRY IN COL 15-16 
NOT IN ASCENDING ORDER OR THE FIRST IS NOT 
01, ASSUME PREVIOUS NUMERIC SEQUENCE OR 01 


IF FIRST NUMERIC RECORD 

Code: W—Warning 

Specification Type: I 

Explanation: Either the first numeric sequence 


entry is not 01 or your numeric 
sequence entries are not in ascending 
order. 

System Action: If this is the first numeric sequence 
entry, 01 is assumed; otherwise, the 
numeric sequence entry from the 


previous specification line is assumed. 


User Response: If this assumption was wrong, specify 
the numeric sequence entries in col- 
umns 15-16 in ascending order start- 
ing with 01, and resubmit the job. 
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RG102—INVALID NUMBER ENTRY IN COL 17 FOR 
NUMERIC SEQUENCE, ASSUME N 


Code: W-—Warning 

Specification Type: I 

Explanation: The number entry in column 17 is 
neither 1 nor N. 

System Action: N is assumed. 

User Response: If this assumption was wrong, make 


the proper number entry in column 
17 and resubmit the job. 


RG103—INVALID OPTION ENTRY IN COL 18 FOR 
NUMERIC SEQUENCE, ASSUME O 


Code: W—Warning 

Specification Type: I 

Explanation: The option entry is neither O nor 
blank. 

System Action: O is assumed. 

User Response: If this assumption was wrong, leave 
column 18 blank and resubmit the 
job. 


RG104—NUMBER/OPTION ENTRIES IN COL 17 AND 
18 INVALID WITH ALPHAMERIC SEQUENCE ENTRIES 


Code: T-Terminal 
Specification Type: I 
Explanation: Columns 17 and 18 must be blank 


when columns 15-16 contain an 
alphabetic sequence entry. 
System Action: The job is terminated. 
User Response: Make columns 17 and 18 blank 
when columns 15-16 contain an 
alphabetic entry. Resubmit the 


job. 


RG105—NUMBER/OPTION ENTRIES IN COL 17 AND 
18 INVALID FOR AND OR OR LINE, ASSUME BLANK 


Code: W-—Warning 

Specification Type: I 

Explanation: Columns 17 and 18 must be blank 
in an AND or OR line. 

System Action: Blanks are assumed. 

User Response: To avoid the message when this job 


is run again, leave columns 17 and 
18 of an AND or OR line blank. 


RG106—INVALID POSITION ENTRY FOR RECORD 
ID CODES IN COL 21-24, 28-31, OR 35-38, OR TO 
POSITION COL 48-51, ASSUME 1 


Code: T—Terminal 
Specification Type: I 
Explanation: The position entry for record ID 


codes or the To position for a field 
exceeds the record length. 

One is assumed; the job is 
terminated. 

Make the proper position entry for 
record ID codes or To position for 
a field and resubmit the job. 


System Action: 


User Response: 


RG107—INVALID NOT ENTRY IN COL 25, 32, OR 39, 
ASSUME N 


Code: W—Warning 
Specification Type: I 
Explanation: The entry in column 25, 32, or 39 


is not N or blank. 

N is assumed. 

If this assumption was wrong, leave 
column 25, 32, or 39 blank and re- 
submit the job. 


System Action: 
User Response: 


RG108—INVALID C/Z/D ENTRY IN COL 26, 33, OR 40, 
ASSUME C 


Code: W—Warning 
Specification Type: _I 
Explanation: The entry in column 26, 33, or 40 


is not C, Z, or D. 

C is assumed. 

If this assumption was wrong, make 
the proper entry in column 26, 33, 
or 40 and resubmit the job. 


System Action: 
User Response: 


RG109—INVALID STACKER SELECT ENTRY IN COL 
42 OR NOT ALLOWED WITH DEVICE 


Code: W—Warning 
Specification Type: I 
Explanation: Column 42 must be left blank, or 


contain a number from 1-4. 

Blank is assumed. 

To avoid this message the next time 
this job is run, leave column 42 
blank or enter a number from 1-4. 


System Action: 
User Response: 


RG110—STACKER SELECT ENTRY IN COL 42 
INVALID WITH AN AND LINE; ASSUME BLANK 


Code: WwW 
Specification Type: I 
Explanation: The entry in column 42 is not 


blank or 1-4. 

Blank is assumed. 

If the assumption was wrong, make 
the proper entry in column 42 and 
resubmit the job. 


System Action: 
User Response: 


RG111—INVALID ENTRY IN COL 43, ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: The entry in column 43 is not P, 


B, or blank. 

Blank is assumed. 

If the assumption was wrong, make 
the proper entry in column 43 and 
resubmit the job. 


System Action: 
User Response: 


RG112—INVALID OR BLANK FROM OR TO ENTRY 
IN COL 44-51, ASSUME 1 FOR BOTH ENTRIES 


Code: T—Terminal 
Specification Type: I 
Explanation: Columns 44-47 and/or 48-51 do 


not contain an entry from | to 
4096. 

1 is assumed for columns 44-47 or 
columns 48-51, or for both; but 
the job is terminated. 

Make the proper From or To entry 
in columns 44-47 and/or 48-51 
and resubmit the job. 


System Action: 


User Response: 


RG113—FROM ENTRY IN COL 44-47 EXCEEDS TO 


ENTRY IN COL 48-51, ASSUME TO ENTRY EQUAL 
TO FROM ENTRY 


Code: T-Terminal 
Specification Type: I 
Explanation: From entry specified in columns 


44-47 is larger than the To entry 
specified in columns 48-51. 

To entry is assumed to be equal 

to the From entry, but the job is 
terminated. 

Make the From entry (columns 
44-47) equal to or less than the To 
entry (columns 48-51). Resubmit 
the job. 


System Action: 


User Response: 
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RG114—LENGTH OF NUMERIC FIELD IN COL 44-51 
EXCEEDS 15, ASSUME 15 


Code: T—Terminal 
Specification Type: I 
Explanation: Length specified in columns 44-51 


for numeric field is too large. 
Length of 15 is assumed, but the 
job is terminated. 

Make the length (columns 44-51) 
15 or less. Resubmit the job. 


System Action: 


User Response: 


RG115—ALPHAMERIC FIELD SPECIFIED AS PACKED 
OR BINARY, ASSUME NUMERIC FIELD 


Code: T—Terminal 
Specification Type: I 
Explanation: Column 43 must be blank for alpha- 


meric fields. 

The field is assumed to be numeric, 
but the job is terminated. 

Leave column 43 blank for alpha- 
meric fields or make an entry (0-9) 
in column 52 for numeric fields, 
and resubmit the job. 


System Action: 


User Response: 


RG116—INVALID DECIMAL POSITION ENTRY IN COL 
52; ASSUME 0 


Code: T—Terminal 
Specification Type: I 
Explanation: Decimal position entry in column 


52 is not 029 or blank. 

Zero is assumed, but the job is 
terminated. 

Make the proper decimal position 
entry in column 52 and resubmit 
the job. 


System Action: 


User Response: 


RG117—DECIMAL POSITION ENTRY IN COL 52 
INVALID FOR ARRAY; ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: No decimal position entry can be 


specified in column 52 for an array. 
Blank is assumed. 
Leave column 52 blank for an array. 


System Action: 
User Response: 


Decimal positions for arrays must be 


enanifiad in BINS avtanann eonancifi_ 
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cations. Resubmit the job. 
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RG118—FIELD NAME IN COL 53-58 MISSING OR 
INVALID 


Code: T—Terminal 
Specification Type: I 
Explanation: The field name entry in columns 


53-58 is missing or is not specified 
properly. 

The job is terminated. 

Make a valid field name entry 
starting in column 53. Resubmit 
the job. 


System Action: 
User Response: 


RG119—INVALID CONTROL LEVEL INDICATOR IN 
COL 59-60; ASSUME BLANK 


Code: T—Terminal 
Specification Type: I 
Explanation: The control level entry in columns 


59-60 is neither L1-L9 nor blank. 
Blank is assumed, but the job is 
terminated. 

Make the proper control level entry 
in columns 59-60 and resubmit the 
job. 


System Action: 


User Response: 


RG120—INVALID MATCHING FIELD ENTRY IN COL 
61-62; ASSUME M1 


Code: T—Terminal 
Specification Type: I 
Explanation: The matching field entry in col- 


umns 61-62 is not M1-M9 or blank. 
M1 is assumed, but the job is 
terminated. 


System Action: 


User Response: 
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submit the job. 


RG121—FROM FILE CANNOT HAVE AN E IN COL 17 
OF FILE DESCRIPTION SPECIFICATION WHEN TO 
FILE IS A DEMAND FILE 


Code: T—Terminal 
Specification Type: E 
Explanation: End of file, E in column 17 of the 


file description specifications, can- 
not be used for a record address 
file which is used to process a 
demand file. 

Job is terminated. 

Leave column 17 blank and re- 
submit the job. 


System Action: 
User Response: 


RG 122—FIELD WAS PREVIOUSLY DEFINED WITH 
DIFFERENT LENGTH OR DECIMAL POSITIONS, 
ASSUME FIRST DEFINITION—OR FIELD IS NOW 
DEFINED AS A LOOK AHEAD FIELD 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


W—Warning 

IorC 

A conflicting length or number of 
decimal positions has been detected, 
or field is now used as a look ahead 
field. 

The length or decimal positions of 
the first entry are assumed, or 
second field is a look ahead field. 
If the assumption was wrong, de- 
fine the field correctly and resub- 
mit the job. 


~RG123—INVALID ENTRY IN COL 7-8 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-Terminal 

C 

The control level entry in columns 
7—8 is not AN, OR, LO—L9, LR, SR, 
or blank. 

The job is terminated. 

Make the proper control level entry 


in columns 7—8 and resubmit the job. 


RG124—INVALID NOT ENTRY IN COL 9, 12, OR 15; 


ASSUME N 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

C 

The entry in column 9, 12, or 15 is 
not N or blank. 

N is assumed. 

If this assumption was wrong, leave 
column 9, 12, or 15 blank and re- 
submit the job. 


RG125—INVALID FIELD NAME OR CONSTANT FOR 
FACTOR 1 IN COL 18-27 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 
C 
The field name or constant in col- 


umns 18-27 is not specified properly. 


Both must begin in column 18. 
The job is terminated. 

Make the proper field name or 
constant entry in columns 18-27. 
Resubmit the job. 


RG126—LENGTH OF TABLE/ARRAY EXCEEDS 


MAXIMUM CORE STORAGE 

Code: T—Terminal 

Specification Type: E 

Explanation: The number of entries per table or 


System Action: 
User Response: 


array (columns 36-39) multiplied 
by the length of entry (columns 
40-42) exceeds maximum storage. 
Job is terminated. 

Reduce the number of entries or 
the length of the entries. 


RG127—ENTRY IN COL 49-51 INVALID WITH NO 
RESULT FIELD, ASSUME 49-51 BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

C 

This calculation specification con- 
tains a field length entry (columns 
49-51) but no result field entry 
(columns 43-48). 

Blank in columns 49-51 is assumed. 
If a result field is being described, 
place the proper entry in columns 
43-48 and resubmit the job. 


RG128—INVALID OPERATION CODE ENTRY IN COL 


28-32 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

C 

Operation code is not specified 
properly. 

The job is terminated. 

Enter the proper RPG II operation 
code in columns 28-32, and resub- 
mit the job. 


RG129—FACTOR 2 FIELD NAME IN COL 33-42 


EXCEEDS SIX CHARACTERS 

Code: T—Terminal 

Specification Type: C 

Explanation: The field name or label specified in 


System Action: 
User Response: 


Factor 2 is too large. 

The job is terminated. 

Make the field name or label in 
Factor 2 (columns 33-42) six 
characters or less. Resubmit the 
job. 
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RG130—TO FILE MUST BE A LIMITS FILE IF FROM 
FILE IS A RECORD ADDRESS FILE, OR TO FILE MUST 
BE A RANDOM ACCESS FILE IF FROM FILE IS AN 
ADDROUT FILE 


Code: T—Terminal 
Specification Type: E 
Explanation: The file types specified on the 


Extension specification are not 
used properly. 

Job is terminated. 

Make To file a limits file if From 
file is a record address file, or make 
To file a random access file if From 
file is an ADDROUT file. Resubmit 
the job. 


System Action: 
User Response: 


RG131—FACTOR 2 IN COL 33-42 INVALID 


Code: T-—Terminal 
Specification Type:  C 
Explanation: The field name or constant in col- 


umns 33-42 is not specified proper- 
ly. Entry must start in column 33. 
The job is terminated. 

Make the proper field name or 
constant entry in columns 33-42. 
Resubmit the job. 


System Action: 
User Response: 


RG132—FACTOR 2 MUST BE A FILENAME 


Code: T—Terminal 
Specification Type:  C 
Explanation: For this operation the entry in 


Factor 2 must be a filename. 

The job is terminated. 

Make the proper filename entry in 
Factor 2 (columns 33-42) for this 
operation. Resubmit the job. 


System Action: 
User Response: 


RG133—NUMERIC FIELD LENGTH EXCEEDS 15; 
ASSUME 15 


Code: T-Terminal 
Specification Type: C 
Explanation: Length specified in columns 49-51 


for numeric field is too large. 
Length of 15 is assumed, but the 
job is terminated. 

Make the length (columns 49-51) 
i5 or iess. Resubmit the job. 


System Action: 


User Response: 
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RG134—ALPHAMERIC FIELD LENGTH EXCEEDS 256; 
ASSUME 256 


Code: T—Terminal 
Specification Type: C 
Explanation: Length specified in columns 49-51 


for an alphameric field is too large. 
Length of 256 is assumed, but the 
job is terminated. 

Make the length (columns 49-51) 
256 or less. Resubmit the job. 


System Action: 


User Response: 


RG135—INVALID RESULT FIELD ENTRY IN COL 43-53 


Code: T-Terminal 
Specification Type: C 
Explanation: The result field entry in columns 


43-53 is not specified properly. 
The job is terminated. 

Make the proper result field entries, 
and resubmit the job. 


System Action: 
User Response: 


RG137—INVALID RESULT FIELD LENGTH IN COL 
49-51; ASSUME 15 FOR NUMERIC OR 256 FOR 
ALPHAMERIC FIELD 


Code: T—Terminal 
Specification Type: C 
Explanation: The field length entry in columns 


49-51 is not specified properly. 
15 is assumed for numeric fields; 
256 is assumed for alphameric 
fields. The job is terminated. 
Enter 15 or less in columns 49-51 
for numeric fields, 256 or less for 
alphameric fields. Resubmit the 
job. 


System Action: 


User Response: 


RG138—DECIMAL POSITION ENTRY IN COL 52 
INVALID WITH NO FIELD LENGTH ENTRY IN COL 
49-51; ASSUME BLANK 


Code: T-Terminal 
Specification Type: C 
Explanation: Column 52 must be blank when 


columns 49-51 are blank. 

Blank in column 52 is assumed, but 
the job is terminated. 

Leave column 52 (decimal position) 
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length) are blank. Resubmit the 
job. 


System Action: 


User Response: 


RG139—INVALID DECIMAL POSITION ENTRY IN COL 
52; ASSUME 0 


Code: T—Terminal 
Specification Type: C 
Explanation: The decimal position entry is not a 


number from 0 to 9 or blank. 
Zero is assumed, but the job is 
terminated. 

Make the proper decimal position 
entry (0-9 or blank) in column 52 
and resubmit the job. 


System Action: 


User Response: 


RG140—INVALID HALF ADJUST ENTRY IN COL 53; 
ASSUME H 


Code: W—Warning 
Specification Type: C 
Explanation: The half adjust entry in column 53 


is neither H nor blank. 

H is assumed. 

If this assumption was wrong, leave 
column 53 blank and resubmit the 
job. 


System Action: 
User Response: 


RG141—DEBUG CALCULATION OPERATION USED, 
BUT DEBUG OPTION NOT SPECIFIED IN THE 
CONTROL CARD 


Code: W—Warning 
Specification Type:  C 
Explanation: The DEBUG operation code was 


used in your calculation specifica- 
tions, but you had not specified 
the DEBUG option (1 in column 
15) in your control card specifica- 
tions. 
System Action: 
User Response: Specify the DEBUG option (1 in 
column 15) in your control card 
specifications if you have DEBUG 
statements to be executed, and re- 
submit the job. 


DEBUG operations are not executed. 


RG142—FILE AND RECORD IDENTIFICATION ENTRIES 
IN COL 7-31 AND FIELD DESCRIPTION ENTRIES IN 
COL 32-74 ON SAME LINE 


Code: T—Terminal 
Specification Type: O 
Explanation: Your field description entries in 


columns 23-74 are not specified one 
line lower than the file and record 
identification entries in columns 
7-31. 

Blanks are assumed for columns 
7-31 and the job is terminated. 
Place the field description entries 
(columns 32-74) one line lower 
than the file and record identifica- 
tion entries (columns 7-31). Re- 
submit the job. 


System Action: 


User Response: 


RG143—INVALID LINE TYPE ENTRY IN COL 15 


Code: T—Terminal 
Specification Type: O 
Explanation: The line type entry in column 15 is 


not H, D, T, or E. 

H is assumed; the job is terminated. 
Make the proper line type entry in 
column 15 and resubmit this job. 


System Action: 
User Response: 


RG144—AND OR OR LINE NOT PRECEDED BY 


RECORD IDENTIFICATION 

Code: T—Terminal 

Specification Type: O 

Explanation: An AND or OR line is not pre- 


ceded by record identification 
entries in columns 15-31. 

The job is terminated. 

Make sure that record identification 
entries in columns 15-31 precede 
any AND or OR lines. Resubmit 
the job. 


System Action: 
User Response: 
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RG145—INVALID ENTRIES IN COL 17-22 FOR AND 
LINE, ASSUME BLANK 


Code: W—Warning 
Specification Type: O 
Explanation: Columns 17-22 of an AND line 


contain space/skip entries; they 
should be blank. 

Blanks are assumed. 

To avoid this message when the job 
is run again, remove all space/skip 
entries (columns 17-22) from an 
AND line. 


System Action: 
User Response: 


RG146—INVALID FILENAME OR ENTRY IN COL 15 
MISSING ON FIRST OUTPUT SPECIFICATION 


Code: T—Terminal 
Specification Type: O 
Explanation: Either columns 7-14 contain an in- 


valid filename or no line type entry 
was specified in column 15 of the 
specification line. 

The job is terminated. 

Check to make sure the proper 
filename entry is made in columns 
7-14 and that the proper line type 
entry is made in column 15. Re- 
submit the job. 


_System Action: 
User Response: 


RG147—INVALID NOT ENTRY IN COL 23, 26, OR 29; 
ASSUME N 


Code: W—Warning 
Specification Type: O 
Explanation: The entry in column 23, 26, or 29 


is neither N nor blank. 

N is assumed. 

if this assumption was wrong, make 
the proper entry in column 23, 26, 
or 29 and resubmit the job. 


System Action: 
User Response: 


RG148—INVALID FIELD NAME IN COL 32-37 


Code: T—Terminal 
Specification Type: O 
Explanation: The field name entry in columns 


32-37 is not specified properly or 
was not defined previously in input 
or calculation specifications. 

The job is terminated. 

Make ihe prope: fieid name entry 
starting in column 32 and resubmit 
the job. 


System Action: 
User Response: 
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RG149—INVALID OR MISSING CONSTANT 


Code: T—Terminal 
Specification Type: O 
Explanation: The constant in columns 45-70 is 


not specified properly. 

The job is terminated. 

Make the proper entry in columns 
45-70 and resubmit the job. 


Svstem Action: 
User Response: 


RG150—INVALID BLANK AFTER ENTRY IN COL 39; 
ASSUME BLANK 


Code: T-—Terminal 
Specification Type: O 
Explanation: The blank after entry in column 39 


is neither B nor blank. 
Blank is assumed, but the job is 
terminated. 

Make the proper entry in column 


39 and resubmit the job. 


System Action: 


User Response: 


RG151—MISSING OR INCORRECTLY SPECIFIED END 
POSITION IN COL 40-43; ASSUME END POSITION 1 


Code: T—Terminal 
Specification Type: O 
Explanation: The end positions entry in columns 


40-43 is either missing or is not 
specified properly. 

The job is terminated. 

Make the proper numeric entry in 
columns 40-43; the entry must end 
in column 43. Resubmit the job. 


System Action: 
User Response: 


RG152—INVALID ENTRY IN COL 44; ASSUME BLANK 
Code: W—Warning 

Specification Type: O 

Explanation: The entry in column 44 is not P, 


B, or blank. 

Blank is assumed. 

If the assumption was wrong, make 
the proper entry in column 44 and 
resubmit the job. 


System Action: 
User Response: 


RG153—END POSITION IN COL 40-43 INVALID FOR 
*PRINT; ASSUME BLANK 


Code: W—Warning 

Specification Type: O 

Explanation: End position may not be specified 
for *PRINT. 

System Action: No action taken. 


To avoid this message the next 
time the job is run, remove the end 
position (columns 40-43) for the 
*PRINT. 


User Response: 


RG154—ENTRIES IN COL 7-22 INVALID FOR A FIELD 
DESCRIPTION SPECIFICATION, ASSUME BLANK 


Code: T—Terminal 
Specification Type: O 
Explanation: The file and record identification 


entries in columns 7-22 are not 
specified one line above the first 
related field description entries. 

The job is terminated. 

Place your file and record identifica- 
tion entries (columns 7-22) one 

line above the field description 
entries (columns 32-74). Resubmit 
the job. 


System Action: 
User Response: 


RG155—INVALID STERLING SIGN POSITION ENTRY 
IN COL 71-74; ASSUME BLANK 


Code: T—Terminal 
Specification Type: lorO 
Explanation: Columns 71-74 must contain an S 


or a valid record position. 

Blank is assumed and job is 
terminated. 

Correct the entry in columns 71-74 
and resubmit the job. 


System Action: 


User Response: 


RG158—TABLE NAME INVALID FOR A FIELD NAME 
ENTRY IN COL 53-58 


Code: T-Terminal 
Specification Type: 1 
Explanation: The field name entry in columns 


53-58 refers to a table. 

The job is terminated. 

Place the proper field name entry 
in columns 53-58; the entry must 
not be a table name. Resubmit 
the job. 


System Action: 
User Response: 


RG159—MISSING RECORD IDENTIFYING INDICATOR 
IN COL 19-20 


Code: W—Warning 
Specification Type: I 
Explanation: No record identifying indicator is 


specified in columns 19-20. 
No action taken. 
Check your input specifications t 


System Action: 
User Response: ifications to 
determine whether or not a record 
identifying indicator should be 
entered in columns 19-20. If so, 
inake the proper entry and resubmit 


the job. 


RG160—FILE NAMED IN COL 7-14 NOT SPECIFIED AS 
AN INPUT, COMBINED, UPDATE-PRIMARY, 
SECONDARY, DEMAND, OR CHAINED FILE 


Code: T-—Terminal 
Specification Type: I 
Explanation: The file named in columns 7-14 was 


not previously defined in file de- 
scription specifications as an input, 
combined, or update file with a 
designation of primary, secondary, 
demand, or chained. 

The job is terminated. 

Make sure the file named in columns 
7-14 is properly defined in file de- 
scription specifications. Resubmit 
the job. 


System Action: 
User Response: 


RG161—AND OR OR LINE INVALID WITH LOOK 


AHEAD RECORDS OR RLABL 

Code: T-—Terminal 

Specification Type:  I,C 

Explanation: An AND or OR line was used with 


look ahead fields or RLABL. 

The job is terminated. 

Make sure that AND or OR lines 
are not specified for look ahead 
fields (** in columns 19-20) or for 
RLABL. Resubmit the job. 


System Action: 


User Response: 
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RG162—RECORD IDENTIFYING INDICATOR IN COL 
19-20 INVALID FOR AN AND LINE 


Code: W-—Warning 
Specification Type: I 
Explanation: A record identifying indicator is in 


columns 19-20 of an AND line. 
Blanks are assumed. 

To avoid this message next time 
this job is run, leave columns 19-20 
of the AND line blank. 


System Action: 
User Response: 


RG163—ENTRIES IN COL 17-18 AND 21-42 INVALID 
FOR LOOK AHEAD RECORD ENTRIES IN 59-74 
INVALID FOR LOOK AHEAD FIELD 


Code: T—Terminal 
Specification Type: I 
Explanation: Columns 17-18 and 21-42 must be 


blank for look ahead records, col- 
umns 59-74 must be blank for look 
ahead fields. 

The job is terminated. 

Leave columns 17-18 and 21-42 
blank for look ahead records; leave 
columns 59-74 blank for look 
ahead fields. Resubmit the job. 


System Action: 
User Response: 


RG164—STACKER SELECT ENTRY IN COL 42 
INVALID FOR DEVICE SPECIFIED; ASSUME BLANK 


Code: W—Warning 
Specification Type: I 
Explanation: Column 42 must be blank for a 


printer, console, disk, or SPECIAL 
file. 
System Action: Blank is assumed. 


User Response: 


RG166—PLUS OR MINUS INDICATOR IN COL 65-68 
INVALID FOR ALPHAMERIC FIELD 


Code: T—Terminal 
Specification Type: I 
Explanation: A Plus or Minus indicator in col- 


umns 65-68 cannot be used to test 
an alphameric field. 

Blank is assumed; the job is 
terminated. 

Use Plus or Minus indicators only 
to test numeric fields. An alpha- 
meric field can only be tested for a 
blank condition (entry in columns 
69-70). Resubmit the job. 


System Action: 


User Response: 
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Remove the entry from column 42. 


RG167—RECORD ID POSITION 21-38 OR TO ENTRY 
IN COL 48-51 EXCEEDS RECORD LENGTH, ASSUME 
RECORD LENGTH 


Code: T—Terminal 
Specification Type: I 
Explanation: Field location entries (columns 21- 


38 and 48-51) exceed record length 
specified in file description specifi- 
cations. 

Record length is assumed; the job 

is terminated. 

Make the field location entries 
(columns 21-38 and 48-51) equai 
to or less than the record length 
specified on file description speci- 
fications. Resubmit the job. 


System Action: 


User Response: 


RG168—FIELD NAME IN COL 53-58 IS A RESERVED 


WORD OTHER THAN PAGE 

Code: T-Terminal 

Specification Type: I 

Explanation: The field name entry in columns 


53-58 is a reserved word other 
than PAGE. 

The job is terminated. 

Make the proper field name entry 
in columns 53-58 (PAGE is the 
only RPG II reserved word that 
can be entered in these columns). 
Resubmit the job. 


System Action: 
User Response: 


RG169—CONTROL OR MATCHING FIELDS INVALID 
FOR ARRAY OR TRAILER RECORD 


Code: T—Terminal 
Specification Type: I 
Explanation: Control or matching fields must not 


be specified for arrays or trailer 
records. 

The job is terminated. 

Make sure no control or matching 
fields are specified for array or 
trailer records. Resubmit the job. 


System Action: 
User Response: 


RG170—MATCHING OR CONTROL FIELDS INVALID 
WITH DEMAND OR CHAIN FILES 


Code: T—Terminal 
Specification Type: I 
Explanation: Matching or control fields cannot 


be specified for demand or chain 
files. 

The job is terminated. 

Make sure that matching or control 
fields are not specified for demand 
or chain files. Resubmit the job. 


System Action: 
User Response: 


RG171—LOOK AHEAD RECORDS INVALID WITH 
DEMAND FILES, CHAIN FILES, FILES CONTAINING 
SPREAD CARDS, OR WITH THIS DEVICE 


Code: T—Terminal 
Specification Type: _I 
Explanation: Look ahead records cannot be 


specified for demand files, or 
chained files, files containing spread 
cards or with this device. 

The job is terminated. 

Make sure that look ahead records 
are not specified for demand or 
chained files, for a file containing 
spread cards, or with this device. 


System Action: 
User Response: 


RG172—INCORRECT SEQUENCE OF INPUT 
SPECIFICATIONS 


Code: T—Terminal 
Specification Type: _I 
Explanation: All records from one input, update, 


or combined files are not specified 
consecutively. 

The job is terminated. 

Specify all records from one input, 
update, or combined file consecu- 
tively before starting to describe 
records from a different file. 


System Action: 
User Response: 


RG173—NO FIELDS SPECIFIED FOR LOOK AHEAD 
RECORD 


Code: T—Terminal 

Specification Type: I 

Explanation: A look ahead record is specified 
(** in columns 19-20), but no look 
ahead fields are defined (columns 
53-58). 

System Action: The job is terminated. 


User Response: Make the proper look ahead field 
specifications in columns 53-58 
for a look ahead record. Resubmit 


the job. 


RG175—STERLING ENTRY IN COL 71-74, BUT 
OMITTED FROM HEADER CARD 


Code: T—Terminal 
Specification Type: I 
Explanation: Sterling specified here, but header 


card (columns 17-20) does not 
indicate sterling to be used. 

Blank is assumed and job is 
terminated. 

If this assumption is not correct, 
modify the header card and resub- 
mit the job. 


System Action: 


User Response: 


RG176—SIGN POSITION ENTERED IN COL 71-74 


EXCEEDS RECORD LENGTH 

Code: T 

Specification Type: I 

Explanation: Number entered in columns 71-74 


must not exceed the record length. 
Job is terminated. 

Correct the entry in columns 71-74 
and resubmit the job. 


System Action: 
User Response: 


RG177—DECIMAL POSITION ENTRY IN COL 52 
BLANK OR GREATER THAN 3 FOR STERLING FIELD 


Code: T 
Specification Type: ] 
Explanation: Column 52 must be 0-3 for a 


sterling field. 

Job is terminated. 

Make a proper entry in column 52 
and resubmit the job. 


System Action: 
User Response: 
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RG178—-STERLING OR BINARY INVALID WITH 
CONTROL OR MATCHING FIELDS 


Code: T—Terminal 
Specification Type: I 
Explanation: Binary or sterling fields have been 


used as control or matching fields. 
The job is terminated. 

Do not specify a binary or sterling 
field as a control or matching field. 


System Action: 
User Response: 


RG179—SIGN POSITION ENTRY, OTHER THAN 
STANDARD, IN COL 71-74 INVALID FOR STERLIN 
ARRAYS 


Code: T—Terminal 
Specification Type: I 
Explanation: The sign of sterling array elements 


must be in the standard position. 
The job is terminated. 

Correct the sign position entry and 
resubmit the job. 


System Action: 
User Response: 


RG180—ARRAY LENGTH EXCEEDS LENGTH 
SPECIFIED IN COL 36-42 IN EXTENSION 
SPECIFICATIONS OR NOT A MULTIPLE OF THE 
ENTRY LENGTH IN COL 40-42 IN EXTENSION 
SPECIFICATIONS 


Code: T-—Terminal 
Specification Type: I 
Explanation: The array length either exceeds the 


length specified in columns 36-42 
of your extension specifications, or 
is not a multiple of the length entry 
in columns 40-42 of the extension 
specification, or both. 

The job is terminated. 

Make the array length equal to or 
less than the length specified in 
columns 36-42 of extension speci- 
fications. The length must also be 
a multiple of the length of an array 
element (columns 40-42 of exten- 
sion specifications). Resubmit the 
job. 


System Action: 
User Response: 
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RG181—INCONSISTENT FIELD LENGTHS FOR 
CONTROL OR MATCHING FIELDS OF ONE LEVEL. 
ASSUME FIRST VALID LENGTH 


Code: T—Terminal 
Specification Type: I 
Explanation: All control or matching fields of 


one level were not assigned the 
same field length. 

The job is terminated. 

Assign the same field length to all 
control or matching fields of the 
same level. Resubmit the job. 


System Action: 
User Response: 


RG182—INVALID SPLIT CONTROL FIELD SPECIFICA- 
TION, ASSUME PREVIOUS TOTAL LENGTH FOR THIS 


TRVET 


LLEVLL 

Code: T—Terminal 

Specification Type: I 

Explanation: Specifications for split control 


fields of the same level are not 
specified on successive lines. 

The job is terminated. 

Place the specifications for split 
control fields of the same level on 
successive lines. Resubmit the job. 


System Action: 
User Response: 


RG183—CONTROL OR MATCHING FIELDS OF A 
LEVEL SPECIFIED AS BOTH ALPHAMERIC AND 


NUMERIC, ASSUME NUMERIC 

Code: W—Warning 

Specification Type: I 

Explanation: All control and matching fields as- 


signed the same level are not the 
same type (alphameric or numeric). 
Numeric is assumed for all fields 
assigned the same control or match- 
ing level. If any of the fields speci- 
fied as alphameric are greater than 
15 characters, only a portion of 
the field will be used. 

If this assumption is wrong, make 
the proper entry and resubmit 

the job. 


System Action: 


User Response: 
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NOT REFERENCED IN LAST RECORD GROUP 


Code: T—Terminal 
Specification Type: _ I 
Explanation: The same number of match levels 


are not specified to all record types 
in a file. 

The job is terminated. 

Make sure that all record types in a 
file either have no match levels or 
have the same number of match 


levels specified. Resubmit the job. 


System Action: 
User Response: 


RG186—MATCH OR CONTROL FIELDS WITHOUT 
FIELD RECORD RELATION ENTRIES MUST PRECEDE 
MATCH OR CONTROL FIELDS WITH FIELD RECORD 
RELATION ENTRIES, ASSUME PART OF A NEW 


GROUP OF MATCH FIELDS 

Code: T—Terminal 

Specification Type: _I 

Explanation: All match or control fields without 


field record relation entries (columns 
63-64) do not precede those fields 
that do have field record relation 
entries. 

The job is terminated. 

Place all match or control fields 
without field record relation entries 
before those match or control fields 
with field record relation entries. 
Resubmit the job. 


System Action: 
User Response: 


RG187—MATCH AND CONTROL FIELDS WITH FIELD 
RECORD RELATION ENTRIES MUST BE GROUPED 
ACCORDING TO THE FIELD RECORD RELATION 
INDICATOR. ASSUME NEW GROUP OF MATCH 
FIELDS 


Code: T—Terminal 

Specification Type: I 

Explanation: When field record relation is used, 
all match and control fields assigned 
the same indicator (columns 63-64) 
must be grouped together. 

System Action: A new group is assumed, but the 


job is terminated. 

Group all match and control fields 
with the same field record relation 
indicator together. Resubmit the 
job. 


User Response: 


RGi88—FIELD RECORD KELATION INDICATOR 
USED IMPROPERLY WITH MATCH OR CONTROL 
FIELDS 


Code: T—Terminal 
Specification Type: I 
Explanation: When used with match or control 


fields, the field record relation 
indicator in columns 63—64 does 
not match a record identifying 
indicator used for this file. 

The job is terminated. 

Make the field record relation in- 
dicator in columns 63-64 match a 
record identifying indicator for this 
file. Resubmit the job. 


System Action: 
User Response: 


RG189—INVALID SEQUENCE FOR CALCULATION 
SPECIFICATIONS OR SR NOT SPECIFIED IN 
COLUMNS 7—8 WITH BEGSR OR ENDSR 


Code: T—Terminal 
Specification Type: C 
Explanation: Calculation specifications are not 


specified in this order: detail, 
total, and subroutines. 

The job is terminated. 

Place calculation specifications in 
this order: detail, total, and sub- 
routines. Resubmit the job. 


System Action: 
User Response: 


RG190—INVALID SEQUENCE FOR BEGSR AND 


ENDSR OPERATION CODES 

Code: T—Terminal 

Specification Type: C 

Explanation: BEGSR operation code does not 


precede ENDSR operation code. 
The job is terminated. 

Place the BEGSR specification be- 
fore the ENDSR specification in a 
subroutine. Resubmit the job. 


System Action: 
User Response: 


RG191—A SUBROUTINE MUST NOT CALL ITSELF 


Code: T—Terminal 
Specification Type: C 
Explanation: An EXSR specification within a 


subroutine must not call the sub- 
routine it is in. 

The job is terminated. 

If you wish to branch to another 
point within the same subroutine 
use a GOTO and TAG operation. 
Resubmit the job. 


System Action: 
User Response: 
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RG192—BRANCHING BETWEEN SUBROUTINE AND 
OTHER CALCULATIONS INVALID 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

Branching (GOTO and TAG) can 
only occur within a subroutine. 
You cannot branch into a subroutine 
or out of a subroutine. 

The job is terminated. 

When using subroutines, make sure 
branching between a subroutine and 
other calculations is not specified. 
Make the necessary changes and 
resubmit the job. 


RG193—BRANCHING BETWEEN DETAIL, TOTAL 
AND LR CALCULATIONS INVALID 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

Branching must be from detail 
operation to detail operation or 
from total operation to total opera- 
tion. It cannot be from detail to 
total operation or vice versa. 
The job is terminated. 

Remove any operations that at- 
tempt to branch from detail to 
total calculations or vice versa. 
Resubmit the job. 


RG194—SETOF OPERATION INVALID FOR LR 


INDICATOR 
Code: 
Specification Type: 


Explanation: 


System Action: 
User Response: 
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T-—Terminal 

C 

The LR indicator cannot be turned 
off by the SETOF operation code. 
The job is terminated. 

Remove the SETOF LR specifica- 
tion and resubmit the job. 


RG195—LENGTH OF SEARCH WORD NOT EQUAL TO 
LENGTH OF ELEMENT IN TABLE OR ARRAY 


Code: T—Terminal 
Specification Type: C 
Explanation: Length of search word (Factor 1) 


is not equal to length of element in 
table or array being searched. 

System Action: The job is terminated. 

User Response: Make the length of the search word 
(Factor 1) equal to the length of 
the element in the table or array 
being searched. Resubmit the job. 


RG196—FACTOR 2 OR RESULT FIELD INVALID FOR 
LOKUP OPERATION 


Code: T—Terminal 

Specification Type: C 

Explanation: Either Factor 2 or Result Field is 
invalid for this LOKUP operation. 

System Action: The job is terminated. 

User Response: Specify LOKUP operation with 


table or array name in Factor 2 or 
in Result Field. Resubmit the job. 


RG197—SEARCH TABLE HAS MORE ENTRIES THAN 
ITS RELATED TABLE 


Code: W—Warning 

Specification Type:  C 

Explanation: The search table (Factor 2) con- 
tains more entries than its related 
table. 

System Action: No action taken. 

User Response: To avoid this message the next time 


this job is run, make the number of 
entries in the table being searched 
(Factor 2) equal or less than the 
number of entries in the related 
table (result field). 


RG198—INDICATOR ENTERED IN COL 54-57 
INVALID WITH LOKUP ON AN UNSEQUENCED 
TABLE 


Code: T—Terminal 
Specification Type: C 
Explanation: You must not specify a search for 


high or low in a LOKUP operation 
on an unsequenced table. 

The job is terminated. 

Specify the LOKUP operation on 
an unsequenced table for an equal 
condition only (indicator in col- 


umns 58-59). Resubmit the job. 


System Action: 
User Response: 


RG199—TEST FOR BOTH HIGH AND LOW INVALID 
FOR LOKUP OPERATION 


Code: T-—Terminal 
Specification Type:  C 
Explanation: You must not specify a search for 


both high and low in the same 
LOKUP operation. 

The job is terminated. 

Specify the LOKUP for either high 
or low, but not both. Resubmit 
the job. 


System Action: 
User Response: 


RG200—RESULTING INDICATORS IN COL 54-59 
REQUIRED OR NOT ALLOWED FOR OPERATION 
SPECIFIED 


Code: T-—Terminal 
Specification Type: C 
Explanation: The resulting indicator entry in 


columns 54-59 is not specified 
properly. 

The job is terminated. 

Check to determine whether result- 
ing indicators are required for this 
operation. If so, make the proper 
entries (01-09, H1-H9, L1-L9, LR, 
OA-OG, OV, or KA-KN, KP, KQ), 
resubmit the job. 


System Action: 
User Response: 


RG201—HALF ADJUST ENTRY IN COL 53 FOR 
DIVISION OPERATION FOLLOWED BY A MVR 
OPERATION: ASSUME NO HALF ADJUST 


Code: W-—Warning 
Specification Type: C 
Explanation: When an MVR operation follows a 


DIV operation, the DIV operation 
must not be half adjusted. 

No half adjusting is done. 

To avoid this message the next 
time this job is run, leave column 
53 (Half Adjust) blank. 


System Action: 
User Response: 


RG202—MVR OPERATION CODE DOES NOT FOLLOW 
DIV OPERATION 


Code: T-—Terminal 
Specification Type:  C 
Explanation: The MVR operation must immedi- 


ately follow a DIV operation. 
The job is terminated. 

Place an MVR operation immedi- 
ately after a DIV operation or re- 
move the MVR operation and re- 
submit the job. 


System Action: 
User Response: 


RG204—HALF ADJUST ENTRY IN COL 53 INVALID 
FOR OPERATION OR NUMBER OF DECIMAL 
POSITIONS SPECIFIED; ASSUME BLANK 


Code: W—Warning 
Specification Type: C 
Explanation: Half adjusting (H in column 53) 


cannot be done for this operation 
or half adjusting is invalid for the 
number of decimal positions speci- 
fied. 

Column 53 is assumed to be blank; 
therefore no half adjusting is done. 
To avoid this message the next time 
the job is run, leave column 53 
blank for this operation. 


System Action: 


User Response: 
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RG205—COMP, TESTZ, OR MVR INVALID FOR AN 
ARRAY 


Code: T—Terminal 
Specification Type: C 
Explanation: COMP, TESTZ, and MVR must not 


be specified for an array. 

The job is terminated. 

Delete any COMP, TESTZ and 
MVR operations specified for an 
array. Resubmit the job. 


System Action: 
User Response: 


RG206—INVALID USE OF COMP OR LOKUP 


Code: T—Terminal 
Specification Type: C 
Explanation: COMP or LOKUP operation speci- 


fied improperly. 

The job is terminated. 

Make sure that Factor 1 and Factor 
2 of a COMP operation are both 
alphameric or both numeric. Make 
sure the search word and the table 
or array to be searched are both 
alphameric or both numeric. Re- 
submit the job. 


System Action: 
User Response: 


RG207—FIELD TYPE, ALPHAMERIC OR NUMERIC, 
INVALID FOR OPERATION SPECIFIED 


Code: T-—Terminal 
Specification Type: C 
Explanation: This operation requires a different 


field type (alphameric or numeric). 
The job is terminated. 

Make the proper field type entry 
(aiphameric or numeric) and re- 
submit the job. 


System Action: 
User Response: 


RG208—FORCE OPERATION INVALID AT TOTAL 
TIME 


Code: T—Terminal 
Specification Type: C 
Explanation: FORCE operation must be specified 


at detail time only. 

The job is terminated. 

Specify the FORCE operation at 
detail time and resubmit the job. 


System Action: 
User Response: 
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RG209—FILE TYPE INVALID FOR USE WITH THIS 
OPERATION CODE 


Code: T—Terminal 
Specification Type: C 
Explanation: DEBUG and EXCPT must be used 


with an output file; FORCE must 
be used with an input or combined 
primary or secondary file. 

The job is terminated. 

Specify the proper file type or a 
different operation code, and 
resubmit the job. 


System Action: 
User Response: 


RG211—DEBUG SPECIFIED FOR MORE THAN ONE 
OUTPUT FILE 


Code: T—Terminal 
Specification Type: C 
Explanation: The filename entered in Factor 2 is 


not the same for all DEBUG opera- 
tions. 

The job is terminated. 

Place the same filename in Factor 2 
for all DEBUG operations and re- 
submit the job. 


System Action: 
User Response: 


RG212—EXCPT OPERATION CODE SPECIFIED BUT 
NO EXCPT OUTPUT RECORDS SPECIFIED 


Code: W-—Warning 
Specification Type: C 
Explanation: The EXCPT operation code is used 


but no EXCPT records are specified 
(E in column 15 of the output 
specifications). 

No action taken. 

To avoid this message, either delete 
the EXCPT operation code or speci- 
fy the proper exception records in 
output specifications. 


System Action: 
User Response: 


RG213—EXSR DOES NOT REFERENCE A BEGSR NAME 


Code: T—Terminal 
Specification Type: C 
Explanation: The label in Factor 2 of an EXSR 


operation is not the same as the 
label in Factor 1 of a BEGSR 
operation. 

The job is terminated. 

Make the label in Factor 2 of the 
EXSR operation the same as the 
label in Factor 1 of a BEGSR 
operation. Resubmit the job. 


System Action: 


User Response: 


RG214—GOTO BRANCHES TO A BEGSR NAME 


Code: T-Terminal 
Specification Type:  C 
Explanation: The label in Factor 2 of aGOTO 


operation must be the same as the 
label in Factor 1 of a TAG opera- 
tion. 

The job is terminated. 

Make the label in Factor 2 of a 
GOTO operation the same as the 
label in Factor 1 of a TAG opera- 
tion. Resubmit the job. 


System Action: 
User Response: 


RG215—FACTOR 1 ENTRY IN COL 18-27 MISSING 


Code: T—Terminal 
Specification Type: C 
Explanation: No entry specified in Factor 1 for 


this operation. 

The job is terminated. 

Make the proper entry in Factor 1 
and resubmit the job. 


System Action: 
User Response: 


RG216—FACTOR 1 ENTRY IN COL 18-27 INVALID 
FOR THIS OPERATION 


Code: T—Terminal 
Specification Type: C 
Explanation: An entry must not be specified in 


Factor 1 for this operation. 

The job is terminated. 

Make Factor 1 blank for this opera- 
tion and resubmit the job. 


System Action: 
User Response: 


RG217—FACTOR 2 ENTRY IN COL 33-42 MISSING 


Code: T—Terminal 
Specification Type: Cc 
Explanation: No entry specified in Factor 2 for 


this operation. 

The job is terminated. 

Make the proper entry in Factor 2 
and resubmit the job. 


System Action: 
User Response: 


RG218—FACTOR 2 ENTRY IN COL 33-42 INVALID 
FOR THIS OPERATION 


Code: T-—Terminal 
Specification Type: C 
Explanation: An entry must not be specified in 


Factor 2 for this operation. 

The job is terminated. 

Make Factor 2 blank for this opera- 
tion, and resubmit the job. 


System Action: 
User Response: 


RG219—RESULT FIELD ENTRY IN COL 43-48 
MISSING 


Code: T—Terminal 
Specification Type: C 
Explanation: No entry specified in the Result 


Field for this operation. 

The job is terminated. 

Make the proper entry in the Result 
Field for this operation and resubmit 
the job. 


System Action: 
User Response: 


RG220—RESULT FIELD ENTRY IN COL 43-48 INVALID 
FOR THIS OPERATION 


Code: T-Terminal 
Specification Type: C 
Explanation: An entry must not be specified in 


Result Field for this operation. 

The job is terminated. 

Make the Result Field blank for 
this operation and resubmit the 
job. 


System Action: 
User Response: 
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RG221—RESULT FIELD LENGTH MAY NOT BE 
LARGE ENOUGH 


Code: W—Warning 
Specification Type: C 
Explanation: The result field specified may not 


be large enough to hold the largest 
possible result obtained in the cal- 
culation operations specified. 

No action taken. 

Check to make sure the result field 
specified is large enough. If it is 
not, make it larger and resubmit 
the job. 


System Action: 
User Response: 


RG223—SUBROUTINE SPECIFICATIONS ARE THE 
ONLY CALCULATION SPECIFICATIONS 


Code: T—Terminal 
Specification Type:  C 
Explanation: Subroutine specifications do not 


follow detail and total calculations. 
The job is terminated. 

Place detail and total calculations 
before subroutine operations. Re- 
submit the job. 


System Action: 
User Response: 


RG224—A ZERO CONSTANT INVALID AS DIVISOR 
IN COL 33-42 


Code: T—Terminal 
Specification Type:  C 
Explanation: The constant entered in Factor 2 


of a DIV operation must not be 
zero. 

The job is terminated. 

Place the proper divisor in Factor 2 
of the DIV operation and resubmit 
the job. 


System Action: 
User Response: 


RG225—CONDITIONING INDICATORS IN COL 9-17 
INVALID WITH TAG, BEGSR, ENDSR, OR RLABL 
OPERATION 


Code: T—Terminal 
Specification Type: C 
Explanation: Conditioning indicators must not 


be specified in columns 9-17 for 
TAG, BEGSR, ENDSR, or RLABL 
operations. 


On en iewnn 


Tne joo is terminated. 

Make columns 9-17 blank for TAG, 
BEGSR, ENDSR, or RLABL opera- 
tions. Resubmit the job. 


Systeim Action: 
User Response: 
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RG226—A RESERVED WORD OTHER THAN PAGE 
INVALID 


Code: T—Terminal 
Specification Type: C,1,0 
Explanation: No reserved word other than PAGE 


can be specified as a result field. 
CONTD is a reserved word, for 
compatibility with other systems. 
The job is terminated. 

Make sure no reserved word other 
than PAGE is specified in columns 
43-48 as the result field. Resubmit 
the job. 


System Action: 
User Response: 


RG227—RESULT FIELD IN COL 43-48 IS A LOOK 
AHEAD FIELD OR CONSTANT 


Code: T~—Terminal 
Specification Type: C 
Explanation: The result field must not be a look 


ahead field or a constant. 

The job is terminated. 

Make the proper result field entry 
in columns 43-48 and resubmit the 
job. 


System Action: 
User Response: 


RG228—INVALID INDEX 


Code: T—Terminal 

Specification Type: C 

Explanation: Array index not specified properly. 
Index field name must contain a 
valid combination of characters. 
Index constant of field value must 
be a positive number which does 
not exceed the number of elements 
in the array and have zero decimal 
positions. 

The job is terminated. 

Make the proper array index entry 
and resubmit the job. 


System Action: 
User Response: 


RG229—INDEXING INVALID FOR TABLES OR FIELDS 


Code: T—Terminal 
Specification Type: C 
Explanation: Indexing must be specified for 


arrays only. 

The iob is terminated. 

Remove specifications for indexing 
tables or fields. Resubmit the job. 


System Action: 
User Response: 


RG231—GOTO DOES NOT BRANCH TO A TAG 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The label in Factor 2 of this GOTO 
operation is not the same as the 
label in Factor 1 of a TAG or 
ENDSR operation. 

The job is terminated. 

Make the label in Factor 2 of the 
GOTO operation the same as the 
label in Factor 1 of a TAG or 
ENDSR operation. Resubmit the 
job. 


RG232—THIS NAME WAS PREVIOUSLY USED ON A 
TAG, BEGSR, OR ENDSR 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The label in Factor 1 was previous- 
ly specified in another TAG, 
BEGSR, or ENDSR operation. 
The job is terminated. 

Make the label in Factor 1 of each 
TAG, BEGSR, and ENDSR opera- 
tion unique. Resubmit the job. 


RG233—CONFIGURATION, COLUMN 15, CONTAINS 
AN ENTRY OTHER THAN P, S, M, OR BLANK. IF 
CONTROL/TRIBUTARY, COLUMN 17, IS BLANK, 
ASSUME SWITCHED NETWORK; IF COLUMN 17 IS 
NOT BLANK, ASSUME MULTIPOINT NETWORK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The configuration entry in column 
15 of your telecommunications 
specifications is not P, S, M or 
blank. 

The job is terminated. 

Make the proper entry (P, S, M, or 
blank) in column 15 and resubmit 
the job. 


RG234—TRANSMITTER/RECEIVER, COLUMN 16, 


DOES NOT CONTAIN TORR 

Code: T—Terminal 

Specification Type:  T 

Explanation: The type of station entry in col- 
umn 16 is neither T nor R. 

System Action: The job is terminated. 

User Response: Enter T (for a transmitter station) 


atior 
or R (for a receiver station) and 
resubmit the job. 


RG235—CONTROL/TRIBUTARY, COLUMN 17, 
CONTAINS A CHARACTER OTHER THAN T OR BLANK. 
IF THIS IS A SWITCHED OR POINT-TO-POINT 
NETWORK, COLUMN 15, ASSUME BLANK; IF 
MULTIPOINT, ASSUME T 


Code: W—Warning 

Specification Type: T 

Explanation: The type of control entry in col- 
umn 17 is neither T nor blank. 

System Action: Blank is assumed if this is a 


switched network or a point-to-point 
leased line; T is assumed if this is a 
multipoint leased line. 

User Response: To avoid this message when this 
job is run again, enter T in column 
17 for tributary on multipoint 
network. Leave column 17 blank if 
switched line or point-to-point line 
is used. 


RG236—ASCII/EBCDIC, COLUMN 18, IS NOT JU, A, E, 
OR BLANK. ASSUME EBCDIC 


Code: W—Warning 

Specification Type: T 

Explanation: The type of code entry in column 
18 is not U or A for ASCII, or E or 
blank for EBCDIC. 

System Action: EBCDIC is assumed. 

User Response: If the assumption was wrong, make 
the proper entry and resubmit the 
job. 
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RG237—TRANSPARENT FEATURE, COLUMN 19, IS 
NOT Y, N, OR BLANK. ASSUME NO TRANSPARENCY 


Code: W—Warning 
Specification Type: T 
Explanation: The entry in column 19 is not Y 


for transparency or N or blank 

for no transparency. 

No transparency is assumed. 

If the assumption was wrong, make 
the proper entry and resubmit the 
job. 


System Action: 
User Response: 


RG238—AUTOCALL/AUTOANSWER, COLUMN 20, IS 
NOT E, S, M, A, B, OR BLANK. COLUMNS 21-31 WILL 
BE IGNORED 


Code: T-—Terminal 
Specification Type: T 
Explanation: The entry in column 20 is not E, 


S, M, A, B, or blank: 

Entries in columns 21-31 are ig- 
nored; the job is terminated. 
Make the proper entry in column 
20 and resubmit the job. 


System Action: 


User Response: 


RG239—ENTRY FOR DIAL NUMBER, COLUMNS 21-31, 
IS NOT VALID FOR THE AUTOCALL/AUTOANSWER 
ENTRY IN COLUMN 20 


Code: T—Terminal 
Specification Type: T 
Explanation: The entry in columns 21-31 is not 


valid for the entry in column 20. 
The job is terminated. 

Enter dial number in columns 21-31 
if the entry in column 20 is E; 

enter symbolic name in columns 
21-31 if the entry in column 20 is 
S. Resubmit the job. 


System Action: 
User Response: 
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RG240—IDENTIFICATION TYPE FOR THIS STATION, 
COLUMN 32, IS NOT S, E, OR BLANK. COLUMNS 
33-39 WILL NOT BE CHECKED 


Code: W—Warning 
Specification Type: T 
Explanation: The station identification entry in 


column 32 is not S, E, or blank. 
Columns 33-39 will not be checked 
for a valid entry. 

If the assumption is not correct, 
make the identification entry in 
column 32 (S, E, or blank) that 
properly describes this station and 
resubmit the job. 


System Action: 


User Response: 


RG241—IDENTIFICATION FOR THIS STATION, 
COLUMNS 33-39 CONTAINS AN INVALID ENTRY 
FOR THE ID TYPE INDICATED IN COLUMN 32 


Code: T-Terminal 

Specification Type: T 

Explanation: The identification entry in columns 
33-39 is invalid for the identifica- 
tion type specified in column 32. 

System Action: The job is terminated. 


User Response: Enter identification sequence in 
columns 33-39 if column 32 con- 
tains an E; enter symbolic name in 
columns 33-39 if column 32 con- 


tains an S. Resubmit the job. 


RG242—IDENTIFICATION TYPE FOR THE REMOTE 
STATION. COLUMN 40, IS NOT S, E, OR BLANK. 
COLUMNS 41-47 WILL NOT BE CHECKED 


Code: W—Warning 

Specification Type: T 

Explanation: The identification entry in column 
40 is not S, E, or blank. 

System Action: Columns 41-47 will not be checked 


for an entry. 

Make the identification entry in 
column 40 (S, E, or blank) that 
properly describes the remote 
station. Resubmit the job. 


User Response: 


RG243—IDENTIFICATION FOR REMOTE STATION, 
COLUMNS 41-47, CONTAINS AN INVALID ENTRY 
FOR THE ID TYPE GIVEN IN COLUMN 40 


Code: T—Terminal 

Specification Type: T 

Explanation: The identification entry specified 
for a remote station in columns 
41-47 is invalid for the identifica- 
tion type (column 40). 

System Action: No action taken. 


User Response: Be sure the entry in columns 41-47 
is valid for the identification type 
(S, E, or blank) specified in column 


40. Resubmit the job. 


RG244—INVALID REMOTE TERMINAL SPECIFIED, 
COLUMNS 48-51 


Code: T—Terminal 
Specification Type: T 
Explanation: The entry in columns 48-51 is not 


a valid remote terminal. 

The job is terminated. 

Specify a valid remote terminal 
and resubmit the job. 


System Action: 
User Response: 


RG245—ITB, COLUMN 52, IS NOT I OR BLANK 
ASSUME I 


Code: W-—Warning 
Specification Type: T 
Explanation: The entry in column 52 is neither 


I nor blank. 

I is assumed. 

If the assumption was wrong, leave 
column 52 blank and resubmit the 
job. 


System Action: 
User Response: 


RG246—PERMANENT ERROR INDICATOR, COLUMNS 
53-54, IS INVALID 


Code: T—Terminal 
Specification Type:  T 
Explanation: The indicator specified in columns 


53-54 is not 01-99, L1-L9, LR, 
or H1-H9. 

The indicator is ignored and the 
job is terminated. 

Make the proper entry in columns 
53-54 and resubmit the job. 


System Action: 


User Response: 


RG247—WAIT TIME, COLUMNS 55-57, IS INVALID. 
ASSUME SYSTEM CONVENTION FOR TIMEOUT, 180 
SECONDS 


Code: W—Warning 
Specification Type: T 
Explanation: The wait time entry specified in 


columns 55-57 is not 1-999 or 
blank. 

System convention for timeout, 
180 seconds, will be assumed. 

If the assumption was not accept- 
able, make the proper entry (1- 
999 or blank) and resubmit the job. 


System Action: 


User Response: 


RG248—RECORD AVAILABLE INDICATOR, 
COLUMNS 58-59, IS INVALID 


Code: T-—Terminal 
Specification Type: T 
Explanation: The record available indicator 


specified in columns 58-59 is not 
01-99, LI-L9, LR, or H1-H9. 
The indicator is ignored and the 
job is terminated. 

Make the proper entry in columns 
58-59 and resubmit the job. 


System Action: 


User Response: 


RG249—LAST FILE PROCESSED, COLUMN 60, IS NOT 
LOR BLANK 


Code: T-—Terminal 
Specification Type: T 
Explanation: The last record processed entry in 


column 60 is not L or blank. 
The job is terminated. 

Enter L in column 60 if the BSC 
input file must be processed last; 
blank if not. Resubmit the job. 


User Response: 
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RG250—POLLING CHARACTERS, COLUMNS 61-62, 
CONTAIN AN INVALID CHARACTER FOR THE CODE 
TYPE ENTRY IN COLUMN 18 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The polling characters specified in 
columns 61-62 are invalid, or are 
missing on a line configuration 
that requires them. 

The job is terminated. 

Make the proper entry in columns 
61-62. (A list of the valid polling 
characters is included in the JBM 
System/3 RPG II Telecommunica- 
tions Reference Manual, SC21- 
7507.) Resubmit the job. 


RG251—ADDRESSING CHARACTERS, COLUMNS 
63-64, ARE INVALID FOR THE CODE TYPE ENTRY 
IN COLUMN 18. THE ENTRY IS IGNORED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-Terminal 

T 

The addressing characters in col- 
umns 63-64 are invalid for the 
code type specified in column 18, 
or are missing on a line configura- 
tion that requires them. 

The job is terminated. 

Make the proper entry in columns 
63-64. (A list of the valid address- 
ing characters is included in the 
IBM System/3 RPG II Telecom- 
munications Reference Manual, 
SC21-7507.) Resubmit the job. 


RG252-—IF BSCA IS SPECIFIED, ONLY TWELVE FILES 
ARE ALLOWED IN THE PROGRAM 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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T—Terminal 

T 

Your program should not use more 
than twelve files when BSCA is 
used. 

The job is terminated. 


Do not use more than twelve files. 


RG253—INVALID REMOTE DEVICE SPECIFIED, 


COLUMNS 65-70 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The entry in columns 65-70 is not 
a valid remote terminal. 

The job is terminated. 

Specify a valid remote terminal 
and resubmit the job. 


RG254—REMOTE DEVICE SPECIFIED WHEN REMOTE 
TERMINAL IS BLANK OR INVALID; ASSUME COLUMNS 


65-70 BLANK 


Code: 


Onan; 4 . 
Specification Type: 


Explanation: 


System Action: 
User Response: 


W—Warning 

T 

A remote device cannot be specified 
if a remote terminal is not speci- 
fied. 

Blank is assumed for columns 65-70. 
If this assumption is wrong, specify 
a valid remote terminal and re- 
submit the job. 


RG256—STACKER SELECT ENTRY IN COL 16 
INVALID FOR OUTPUT DEVICE; ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

O 

Printer, console, disk and SPECIAL 
files cannot have a stacker selection 
entry. 

Blank is assumed. 

Leave column 16 blank. 


RG257—INVALID STACKER SELECT ENTRY IN 
COL 16; ASSUME DEFAULT STACKER 


Code: 


Specification Type: 


Explanation: 


User Response: 


W-—Warning 

O 

Column 16 was not a blank, a 
number from 1-4 for MFCU ora 
1 or 2 for 1442. 

On MFCU assume stacker 1 for 
file entered in primary hopper; 
assume stacker 4 for file entered 
in secondary hopper. On 1442 
assume stacker 1. 

If the assumption is wrong, correct 
column 16 and resubmit the job. 


RG258—SPACE AND/OR SKIP ENTRIES IN COL 17-22 
INVALID FOR DEVICE, ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


Svstem Action: 


User Response: 


W—Warning 

O 

The space and/or skip entries in 
columns 17-22 are invalid for the 
device. 

Blank is assumed for invalid space 
and/or skip entries. 

To avoid this message when the job 
is run again, leave columns 17-22 
blank for ali devices except the 
console and the printer. 


RG259—INVALID SKIP ENTRIES IN COL 19-22 OR 
GREATER THAN THE FORM LENGTH SPECIFIED, 


ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


W—Warning 

O 

The skip entries in columns 19-22 
are not specified properly or they 
exceed the form length in your 

line counter specifications. 

Blanks are assumed. 

If this assumption was wrong, make 
the proper skip entries and resub- 
mit the job. 


RG260—INVALID SPACE ENTRIES IN COL 17-18; 
ASSUME SPACE 1 AFTER OR BLANK 


Code: 


Specification Type: 


Explanation: 


User Response: 


W—Warning 

O 

The space entries in columns 17-18 
are not a number from 0 to 3 or 
blank. 

If space and skip 
invalid and the skip after entry is 
blank, a space after of 1 is assumed. 
When skip and space before entries 
are valid but space after is not, 
space after is assumed blank. 

If the assumption was wrong, make 
the proper space entries in columns 
17-18 and resubmit the job. 


hefore entries are 
WwiwWiw webtbsswv aw 


RG261—FETCH OVERFLOW ENTRY IN COL 16 
INVALID FOR DEVICE; ASSUME BLANK 


Code: 


Specification Type: 


Explanation: 


System Action: 


User Response: 


W—Warning 

O 

The fetch overflow entry specified 
in column 16 is invalid for the 
device. 

Blank is assumed; therefore, no 
fetch overflow is done. 

To avoid the message when the job 
is run again, specify fetch overflow 
for printer files only. 


RG262—OVERFLOW INDICATOR INVALID FOR AN 


EXCPT RECORD 


Code: 


Specification Type: 


Explanation: 


System Action: 
User Response: 


T—Terminal 

O 

An overflow indicator must not be 
specified for an exception record 
(E in column 15). 

The job is terminated. 

Remove overflow indicators from 
exception output lines. Resubmit 
the job. 
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RG263—FETCH OVERFLOW INVALID WITH OVER- 
FLOW INDICATOR ENTERED IN COL 23-31; 
ASSUME NO FETCH 


Code: W—Warning 
Specification Type: O 
Explanation: An overflow indicator and fetch 


overflow (F in column 16) must 
not be specified on the same out- 
put line. 

Blank in column 16 is assumed; 
therefore, no fetch overflow is 
done. 

If this assumption was wrong, make 
the proper fetch overflow specifica- 
tion and resubmit the job. 


System Action: 


User Response: 


RG264—OVERFLOW INDICATOR USED IS NOT 


ASSIGNED TO THIS FILE 

Code: T—Terminal 

Specification Type: O 

Explanation: The overflow indicator specified 


was not assigned to this file in your 
file description specifications. 

The job is terminated. 

Assign the overflow indicator to this 
file in file description specifications. 
Resubmit the job. 


System Action: 
User Response: 


RG265—1P INDICATOR INVALID WITH TOTAL OR 
EXCPT RECORDS 


Code: W—Warning 
Specification Type: O 
Explanation: First page (iP) indicator must not 


be specified for total or exception 
records. 

No action taken. 

To avoid this message when this 
job is run again, specify the 1P 
indicator with heading and detail 
records only. 


System Action: 
User Response: 
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RG266—FETCH OVERFLOW INVALID WITH iP 
INDICATOR, ASSUME NO FETCH OVERFLOW 


Code: W—Warning 
Specification Type: O 
Explanation: A fetch overflow line (F in column 


16) must not be conditioned by the 
1P indicator. 

No fetch overflow is assumed. 

To avoid this message when this 
job is run again, remove the 1P 
indicator from lines in which fetch 
overflow is specified; or if the 
assumption was wrong, remove the 
1P indicator. 


System Action: 
User Response: 


RG267—1P INDICATOR INVALID FOR A COMBINED 
FILE 


Code: T—Terminal 

Specification Type: O 

Explanation: The 1P indicator must not be 
specified for records in a combined 
file. 

System Action: The job is terminated. 


User Response: Specify the 1P indicator to con- 


dition records in an output file only. 


RG268—SPECIFIED OR IMPLIED SPACE BEFORE OF 
ZERO IS INVALID FOR CONSOLE FILE. ASSUME 
SPACE BEFORE OF ONE 


Code: W—Warning 

Specification Type: O 

Explanation: The console forces one space before 
printing. A zero or blank entry in 
space before will be defaulted to 
one. 

System Action: Space before of one is assumed. 


User Response: To avoid this message specify at 


least one for Space Before. 


RG269—INVALID INDICATORS USED IN AN AND 
RELATIONSHIP WITH 1P 


Code: T—Terminal 
Specification Type: O 
Explanation: Only external indicators (U1-U8) 


can be specified in an AND relation- 
ship with the 1P indicator. 


. . . 
Tha inh io taeminatad 
aaiv jVvyv a0 CWLIILLLIELEW 


Specify the 1P indicator in an AND 
relationship with external indicators 
only. Resubmit the job. 


Quetam Antinn: 
wy Wewshs LEWEAV AL 


User Response: 


RG270—END POSITION ENTRY IN COL 40-43 FOR 
CONSTANT, EDIT WORD, FIELD, OR ARRAY 


EXCEEDS RECORD LENGTH 

Code: T-—Terminal 

Specification Type: O 

Explanation: The end position entry in columns 


40-43 exceeds the records length 
specified in your file description 
specifications. 

The job is terminated. 

Make the proper end position entry 
in columns 40-43; it must be equal 
to or less than the record length. 
Resubmit the job. 


System Action: 
User Response: 


RG271—LENGTH OF ARRAY, ARRAY ELEMENT, OR 
FIELD EXCEEDS RECORD LENGTH 


Code: T—Terminal 

Specification Type: O 

Explanation: Length specified for array, array 
element, or field exceeds the record 
length specified in your file descrip- 
tion specifications. 

System Action: The job is terminated. 


Make the proper entry; it must be 
equal to or less than the record 
length or increase the record length 
entry to handle the length. Re- 
submit the job. 


User Response: 


RG272—END POSITION ENTRY IN COL 40-43 FOR 
CONSTANT, EDIT WORD, FIELD, OR ARRAY TOO 
LOW 


Code: T—Terminal 

Specification Type: O 

Explanation: The end position entry in columns 
40-43 is too small to allow the 
first field, array, or array element 
to be written, printed, or punched 
in its entirety. 

System Action: The job is terminated. 


User Response: Make the end position entry large 
enough for the field, array, or 
array element to be written, 
printed, or punched. Resubmit 


the job. 


RG273—OUTPUT INDICATORS IN COL 23-31 MISSING 
OR ALL NEGATIVE 


Code: W—Warning 

Specification Type: O 

Explanation: No output indicators are specified 
in columns 23-31 or all those in- 
dicators specified are negative. 
Output may not be written when 
desired. 

System Action: No action taken. 


To avoid this message when this 
job is run again, specify at least 
one positive indicator to condition 
output records to ensure that out- 
put is written only when desired. 


User Response: 


RG274—OUTPUT INDICATORS MISSING FOR AN AND 
OR OR LINE 


Code: W—Warning 

Specification Type: O 

Explanation: No conditioning indicators were 
specified in columns 23-31 or an 
AND or OR line. 

System Action: No action taken. 


User Response: To avoid this message when this 
job is run again, place the proper 
conditioning indicators in columns 
23-31 of the AND or OR line. 


Resubmit the job. 


RG276—INVALID EDIT CODE IN COL 38 


Code: T-Terminal 

Specification Type: O 

Explanation: The edit code specified in column 
38 is not one of the following: 
1-4, A-D, J-M, X, Y, Z, or blank. 

System Action: The job is terminated. 


User Response: Make the proper edit code entry 


in column 38 and resubmit the job. 
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RG277—INVALID EDIT WORD SIZE 


Code: T-—Terminal 

Specification Type: O 

Explanation: The number of replaceable charac- 
ters in this edit word (columns 
45-70) exceed the length of the 
field to be edited. 

System Action: The job is terminated. 


User Response: Make the number of replaceable 
characters in the edit word equal 
to or less than the length of the 
field to be edited. Resubmit the 


job. 


RG278—EDIT CODES INVALID WITH FIELDS OTHER 
THAN UNPACKED NUMERIC FIELDS OR CONSTANTS 
OTHER THAN * OR $ 


Code: T 
Specification Type: O 
Explanation: Edit codes cannot be specified with 


edit words or with constants other 
than $ or * or with fields other 
than unpacked numeric fields. 
The job is terminated. 

Make the proper edit code entry 
and resubmit the job. 


System Action: 
User Response: 


RG279—CONSTANTS IN COL 45-70 INVALID FOR X, 
Y, AND Z EDIT CODES 


Code: T—Terminal 
Specification Type: O 
Explanation: Edit codes X, Y, and Z must not be 


specified for edit words with ‘$’ or 
** in columns 45-47. 

The job is terminated. 

Use either edit codes or edit words, 
but not both. Resubmit the job. 


System Action: 
User Response: 


RG280—INVALID FIELD LENGTH FOR Y EDIT CODE 


Code: T—Terminal 

Specification Type: O 

Explanation: Field edited by Y edit code is not 
from 3 to 6 characters long. 

System Action: The job is terminated. 


T Tear Racnan ca: 
wWovk AtvOPYssNs 


Mate the field to he edited hv VY 


Make the field to be edited by 
edit code 3 to 6 characters long of 
change the edit code. Resubmit 
the job. 


RG281—DECIMAL POSITIONS INVALID FOR FIEL 
EDITED BY Y CODE 


o 


Code: T-—Terminal 
Specification Type: O 
Explanation: Decimal positions must not be 


specified for field edited by Y code. 
The job is terminated. 

Specify no decimal positions for 
field edited by Y edit code, or use 

a different edit code. Resubmit 

the job. 


System Action: 
User Response: 


RG282—NAME OF FIELD TO BE EDITED, BY CODE 
SPECIFIED IN COL 38, MISSING 


Code: T-—Terminal 
Specification Type: O 
Explanation: An edit code is specified in column 


38, but the name of the field to be 
edited is not entered in columns 
32-37. 

The job is terminated. 

Specify the name of the field to be 
edited in columns 32-37 and re- 
submit the job. 


System Action: 
User Response: 


RG283—INVALID FILE TYPE FOR OUTPUT RECORD 


Code: T—Terminal 
Specification Type: O 
Explanation: The file specified in columns 7-14 


of your output specifications is not 
a combined file, update file, output 
file, or a file associated with ADD. 
The job is terminated. 

Make sure the file specified in out- 
put specifications is a combined file, 
update file, output file, or a file 
associated with ADD. Resubmit 

the job. 


System Action: 


Aarne nA 


RG285—T OR E ENTRY IN COL 15 INVALID FOR 
COMBINED FILE 


Code: T—Terminal 

Specification Type: O 

Explanation: Column 15 does not contain an H 
or D for a combined file. Combined 
files cannot be written or stacker 
selected at total exception time. 

System Action: The job is terminated. 


Correct column 15 and resubmit 
the job. 


User Response: 


RG286—*PRINT INVALID FOR DEVICE 


Code: T—Terminal 
Specification Type: O 
Explanation: *PRINT can only be used with the 


MFCU: 

The job is terminated. 

Remove *PRINT and resubmit 
the job. 


System Action: 
User Response: 


RG287-—OPERATION IN COL 40 INVALID FOR DEVICE 


Code: T—Terminal 
Specification Type: O 
Explanation: * (asterisk) in column 40 invalid 


for device. 

The job is terminated. 

Remove * (asterisk) and resub- 
mit the job. 


System Action: 
User Response: 


RG288—BLANK AFTER ENTRY IN COL 39 INVALID 
WITH RESERVED WORD OTHER THAN PAGE; 
ASSUME BLANK 


Code: W—Warning 
Specification Type: O 
Explanation: Column 39 contains a B entry with 


a reserved word other than PAGE. 
Blank is assumed. 

Leave column 39 blank and resub- 
mit the job. 


System Action: 
User Response: 


RG289—*PRINT PRECEDES ALL FIELD NAMES 
AND CONSTANTS 


Code: T—Terminal 
Specification Type: O 
Explanation: *PRINT must be specified after all 


fields and constants are to be 
printed. 

The job is terminated. 

Correct the position of the *PRINT 
and resubmit the job. 


System Action: 


COwviis SAV esy 


User Response: 


RG290—*PLACE PRECEDES ALL FIELD NAMES AND 
CONSTANTS 


Code: T—-Terminal 

Specification Type: O 

Explanation: When *PLACE is used, it must be 
specified after fields which are to 
be placed in different location. 

System Action: The job is terminated. 


Specify the fields to be moved be- 
fore you specify *PLACE and re- 
submit the job. 


User Response: 


RG291—INVALID ENTRIES IN COL 38, 39, OR 44-74 
FOR OUTPUT OPERATION, ASSUME BLANKS 


Code: T—Terminal 

Specification Type: O 

Explanation: Blank after, edit codes, edit words 
and sterling cannot be specified 
for *PRINT or *PLACE. 

System Action: Blanks are assumed; the job is 
terminated. 


Leave columns 38, 39, and 44-74 
blank for *PRINT and *PLACE. 
Resubmit the job. 


User Response: 


RG292—TOO MANY AND/OR LINES 


Code: T—Terminal 
Specification Type: IorO 
Explanation: More than 20 AND/OR lines speci- 


fied in your input or output speci- 
fications. 

The job is terminated. 

Make the number of AND/OR lines 
specified 20 or less. Resubmit the 
job. 


System Action: 
User Response: 
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RG293--BLANK AFTER SPECIFIED FOR A CONSTANT 


Code: W—Warning 
Specification Type: O 
Explanation: Blank after should not be specified 


for a constant since constants will 
be blanked out whenever they are 


used. 
System Action: No action taken. 
User Response: If you do not want the message to 


come out, do not specify blank 


after (B in columns 39) for constants. 


RG294—STERLING ENTRY IN COL 71-74 BUT OMITTED 
FROM HEADER CARD 


Code: T—Terminal 
Specification Type: O 
Explanation: Sterling output cannot be specified 


unless sterling specifications are 
given in columns 17-20 in the 
header card. 

System Action: The job is terminated. 

User Response: If sterling was intended, correct 
the header card; otherwise leave 
columns 71-74 blank. Resubmit 
the job. 


RG295—STERLING USED WITH EDIT CODE OTHER 
THAN Z 


Code: T—Terminal 

Specification Type: O 

Explanation: Only the Z edit code can be speci- 
fied for sterling output. 

System Action: The job is terminated. 

User Response: Correct the edit code and resubmit 
the job. 


RG296—STERLING SPECIFIED FOR ALPHAMERIC 
FIELD 


Code: T—Terminal 

Specification Type: O 

Explanation: Sterling fields are numeric only. 
System Action: The job is terminated. 

User Response: Remove the sterling specification 


for the alphameric field and resub- 


annie 4h cab 
LiLst LIC JUL. 
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RG297--STERLING SPECIFIED FOR FIELD WITH 
MORE THAN THREE DECIMAL POSITIONS 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

O 

Sterling fields have a maximum of 
three decimal positions. 

The job is terminated. 

Correct the statement and resub- 
mit the job. 


RG298—STERLING SIGN POSITION IN COL 71-74 


EXCEEDS RECORD LENGTH 

Code: T—Terminal 

Specification Type O 

Explanation: Number entered in columns 71-74 


System Action: 
User Response: 


must not exceed record length. 
The job is terminated. 

Correct the entry in columns 71-74 
and resubmit the job. 


RG300—VALUE OF ARRAY INDEX EXCEEDS 
NUMBER OF ARRAY ELEMENTS 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

O 

The array index specified exceeds 
the number of elements in the 
array. 

The job is terminated. 

Specify the proper array index 
value; the index must not exceed 
the number of array elements 
specified for the array in columns 
36-39 of your extension specifica- 
tions. Resubmit the job. 


RG302—BLANK AFTER ENTRY IN COL 39 INVALID 
FOR LOOK AHEAD FIELD; ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

O 

Column 39 must be blank for a 
look ahead field. 

Blank is assumed. 

To avoid this message the next time 
the job is run, leave column 39 
blank for look ahead field. 


RG304—INVALID INDICATOR OR IMPROPER USE OF 
A VALID INDICATOR 


Code: T—Terminal 
Specification Type: I,C,orO 
Explanation: The indicator specified is invalid 


or used improperly. 
The job is terminated. 


If the indicator is invalid , make the 


proper indicator entry (only indi- 
cators 01—99, H1—H9, L1—L9, 
LR, U1—U8, OA—OG, OV, KA— 
KN, KP, KQ can be assigned). If 
the indicator has been used improp- 
erly, see the restrictions concerning 
proper use of indicators under 
Operation Codes, Setting Indica- 
tors. Resubmit the job. 


System Action: 


Tlear Resnonse: 
Wows aAnvopuis 


RG305—INDICATOR ASSIGNED BUT NOT USED TO 


CONDITION OPERATIONS 

Code: W—Warning 

Specification Type: 1,C,orO 

Explanation: The indicator was assigned but was 


not used to condition an operation. 


No action taken. 

Determine whether the indicator 
assigned is needed to condition any 
operation. If not, remove this in- 
dicator to avoid this message the 
next time this job is run. 


System Action: 
User Response: 


RG306—INDICATOR USED TO CONDITION OPERA- 


TIONS BUT NOT ASSIGNED 

Code: T—Terminal 

Specification Type: I,C, or O 

Explanation: All indicators except LR, MR, 1P, 


and LO must be assigned before 
they can be used to condition 
operations. 

The job is terminated. 

Make sure the indicator is assigned 
before it is used to condition 
operations. Resubmit the job. 


System Action: 
User Response: 


RG307—FILE NAME DEFINED BUT NEVER USED. 
SPECIFICATION IS DROPPED. 


Code: W—Warning 

Specification Type: F 

Explanation: A filename was defined in columns 
7-14 but no input or output speci- 
fications exist for this file. 

System Action: Specification is dropped. 


User Re esponse: To avoid this message when this 
job is run again, remove the file- 
name in columns 7-14 in the fields 


not used in the program. 


RG308—SEQUENCING INVALID FOR FILE WITH NO 
MATCH FIELD, ASSUME COLUMN 18 ON FILE 
DESCRIPTION SPECIFICATION BLANK 


Code: W—Warning 
Specification Type:  F 
Explanation: Sequence checking specified in 


column 18 for a file with no match 
fields. 

Assume column 18 is blank. 

Leave column 18 blank for files 
with no match fields. 


System Action: 
User Response: 


RG309—SEQUENCE ENTRY IN COL 18 INVALID OR 
BLANK FOR FILES WITH MATCH FIELDS SPECIFIED, 
ASSUME FIRST VALID SEQUENCE OR A 


Code: W—Warning 

Specification Type: F 

Explanation: No sequence entry or an invalid 
sequence entry is specified in col- 
umn 18 for a file with match fields. 

System Action: For a primary file, A is assumed. 


If no valid sequence entry is speci- 
fied for a secondary file, the pri- 
mary sequence value is assumed. 
If this assumption was wrong, 
make the proper sequence entry 
(A or D) in column 18 and resub- 
mit the job. 


User Response: 
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RG310—EXTENSION CODE SPECIFIED IN COL 39 ON 
FILE DESCRIPTION SPECIFICATION FOR THIS FILE, 
BUT EXTENSION SPECIFICATION MISSING 


Code: T—Terminal 

Specification Type: F 

Explanation: An extension code is specified (E 
in column 39) in your file descrip- 
tion specifications, but no exten- 
sion specifications were supplied. 

System Action: The job is terminated. 


You must either supply the proper 
extension specifications or delete 
the E for column 39 of your file 
description specifications if no 
extension specifications are required 
for this program. Resubmit the job. 


User Response: 


RG311—AN EXTENSION OR LINE COUNTER 
SPECIFICATION WAS PROVIDED FOR THIS FILE 
BUT AN EXTENSION CODE WAS NOT ENTERED IN 
COL 39 ON THE FILE DESCRIPTION SPECIFICATION 


Code: W—Warning 
Specification Type: F 
Explanation: Extension or line specifications 


were supplied, but no extension 
code (E in column 39 of file de- 
scription) was specified. 

No action is taken. 

To avoid this message the next 
time this job is run, enter E in 
column 39 for this file. 


System Action: 
User Response: 


RG312—STACKER SELECT NOT VALID WITH DUAL 
1/0; ASSUME BLANK 


Code: W—Warning 
Specification Type: I,O 
Explanation: Stacker select must not be specified 


for input or output files with dual 

I/O areas. 

Blank is assumed. 

To avoid this message on the next 

run, remove the dual I/O specifica- 
tion. 


System Action: 
User Response: 
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RG313--*PRINT SPECIFIED MORE THAN ONCE FOR 
A RECORD 


Code: W—Warning 
Specification Type: O 
Explanation: *PRINT may be used only once for 


each record. 

Extra *PRINT specifications are 
ignored. 

To avoid this message on the next 
run, remove the extra *PRINT 
statements. 


System Action: 


User Response: 


RG314—FIELD, TABLE OR ARRAY NAME DEFINED 
BUT NEVER USED 


Code: W—Warning 
Specification Type: I, E, or C 
Explanation: A name is assigned to a field, table, 


or array but the field, table, or 
array is not used in the program. 
No action taken. 

To avoid this message when this 
job is run again, remove the field 
table, or array name if it is not 
used. 


System Action: 
User Response: 


RG315—FIELD NAME USED BUT NEVER DEFINED 
OR TABLE NAME OR ARRAY ELEMENT USED AS AN 
ARRAY INDEX 


Code: T—Terminal 
Specification Type: Cor O 
Explanation: (1) The field name is used in calcu- 


lation or output operations but 
was not defined, or (2) a table name 
or array element is used as an array 
index. 

The job is terminated. 

(1) Be sure the field is defined be- 
fore it is used in calculation or out- 
put operations, or (2) be sure that 
the array index is not a table name 
or array element. Resubmit the 
job. 


System Action: 
User Response: 


RG316—INVALID DEFINITION FOR RESERVED 
WORD; ASSUME VALID DEFINITION 


Code: T-—Terminal 
Specification Type: IorC 
Explanation: The field named by one of the RPG 


II reserved words is not specified 
according to the predefined format. 
The predefined format for this re- 
served word is assumed, but the 
job is terminated. 

Make the proper entry for the re- 
served word and resubmit the job. 


System Action: 


User Response: 


RG317—NUMBER OF DECIMAL POSITIONS 
SPECIFIED EXCEEDS FIELD LENGTH 


Code: T 
Specification Type: 1,C,orO 
Explanation: The number of decimal positions 


specified exceeds the field length. 
The job is terminated. 

Make the proper decimal position 
entry, it can be equal to or less 
than the field length. Resubmit 
the job. 


System Action: 
User Response: 


RG318—MISSING A RECORD CONDITIONED BY iP 
AND FORMS POSITIONING SPECIFIED ON CONTROL 
CARD 


Code: W—Warning 
Specification Type: Hand O 
Explanation: Repetitive 1P output for forms 


positioning is specified in your 
control card specifications but 1P 
is not used to condition an output 
record. 

No action taken. 

Use 1P to condition the proper 
output record to avoid this mes- 
sage the next time this job is run. 


System Action: 
User Response: 


RG319—NO DATA FOR ALTERNATE COLLATING 
SEQUENCE, OR FILE TRANSLATION 


Code: T—Terminal 

Specification Type: H 

Explanation: Alternate collating sequence or file 
translation is specified in your 
header line, but no alternate col- 
lating sequence table or file trans- 
lation table was supplied. 

System Action: The job is terminated. 


Provide the proper tables for alter- 
nate collating sequence or file 
translation or delete the specifica- 
tions. Resubmit the job. 


User Response: 


RG320—-INVALID ALTERNATE COLLATING 


SEQUENCE DATA RECORD 

Code: T—Terminal 

Specification Type: Not applicable. 

Explanation: Columns 1-6 in your alternate cok 


lating sequence data records do not 
contain ALTSEQ. 

The job is terminated. 

Check your alternate collating 
sequence data records to make sure 
the data is specified properly; each 
record must contain ALTSEQ in 
columns 1-6. Resubmit the job. 


System Action: 
User Response: 


RG321—INVALID, UNDEFINED, OR TABLE FILENAME 
ON FILE TRANSLATION DATA RECORD 


Code: T—Terminal 
Specification Type: | Not applicable 
Explanation: The entry in columns 1-8 of the 


file translation data record is in- 
valid, not previously defined, or is 
a table filename. 

The job is terminated. 

Make the entry in columns 1-8 of 
each file translation data record a 
filename previously defined in file 
description specifications or the 
characters *FILES#$ (% = blank). 
The entry must not be a table file- 
name. Resubmit the job. 


System Action: 
User Response: 
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RG322—ALTERNATE COLLATING SEQUENCE OR 
FILE TRANSLATION DATA INVALID 


Code: T—Terminal 
Specification Type: | Not applicable. 
Explanation: The data supplied for alternate 


collating sequence or file transla- 
tion is invalid (not 0-9 and A-F). 
The job is terminated. 

Make the data specified for alter- 
nate collating sequence or file 
translation consist of the charac- 
ters A-F and 0-9. Resubmit the 
job. 


System Action: 
User Response: 


RG324—TOTAL LENGTH OF ALL CONTROL OR ALL 
MATCHING FIELDS EXCEEDS 144 CHARACTERS 
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Code: T-Terminal 
Specification Type: I 
Explanation: The total length of all control or 


all matching fields is too large. 

The job is terminated. 

Make the total length of all match- 
ing fields (M1-M9) or all control 
fields (L1-L9) equal to or less than 
144. Resubmit the job. 


System Action: 
User Response: 


RG325—ALL INPUT, UPDATE, AND COMBINED FILES 
CONDITIONED BY EXTERNAL INDICATORS 


Code: W—Warning 
Specification Type: I 
Explanation: When all input, update, and com- 


bined files are conditioned by ex- 
ternal indicators (U1-U8), be sure 


all indicators are not off. If they 


are all off, the job will not be fone 


No action taken. 

When all input, update, or com- 
bined files are conditioned by ex- 
ternal indicators, be sure all indica- 
tors are not off. 


System Action: 
User Response: 
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RG326—COMPILE-TIME TABLES SPECIFIED NO 
DATA FOUND 


Code: T-Terminal 
Specification Type: Not applicable 
Explanation: Compile time table specified (From 


filename in columns 11-18 of ex- 
tension specifications blank), but 
no table input records were sup- 
plied after the source program. 
The job is terminated. 

For compile time tables, supply 
the table input records immediate- 
ly after the source program. Re- 
submit the job. 


System Action: 
User Response: 


RG327—SPLIT CONTROL FIELDS SPECIFIED MAY 


NOT HAVE PARTS THAT ARE PACKED 


Code: T—Terminal 
Specification Type: I 
Explanation: All parts of a split control field 


must be either packed or unpacked. 
The job is terminated. 

Make proper entries so that all parts 
of the split control field are either 
packed or unpacked. Resubmit the 
job. 


System Action: 
User Response: 


RG328—STERLING FIELD SPECIFIED AS PACKED 


Code: T—Terminal 

Specification Type: IorO 

Explanation: Data in a sterling field cannot be 
packed. 


System Action: 
User Response: 


The job is terminated. 
Correct the specification and resub- 
mit the job. 


RG329—PACKED OR BINARY DATA NOT VALID FOR 
DEVICE 


Code: W—Warning 
Specification Type: IorO 
Explanation: Packed or binary data should be 


specified only for disk, BSCA, and 
1442 files. 

Data errors may occur if program 
is executed. 

Specify packed or bitiary data for 
disk, BSCA, and 1442 files only. 
Resubmit the job. 


System Action: 


User Response: 


RG330—ALPHAMERIC FIELD SPECIFIED AS 
PACKED OR BINARY 


Code: T—Terminal 
Specification Type: O 
Explanation: Packed data cannot be specified 


for alphameric fields. 

The job is terminated. 

Specify packed data for numeric 
fields only. Resubmit the job. 


System Action: 
User Response: 


RG331—NO INPUT SPECIFICATIONS FOUND 


Code: T-—Terminal 

Specification Type: Not applicable 

Explanation: No valid input specifications are 
supplied for this job. 


The job is terminated. 
Supply valid input specifications 
and resubmit this job. 


System Action: 
User Response: 


RG332—SEQUENCE ERROR FOUND IN COMPILE 
TIME TABLE/ARRAY 


Code: T-—Terminal 

Specification Type: Not applicable 

Explanation: Compile time table or array is not 
in the sequence specified in col- 
umns 45 to 57. 

System Action: The job is terminated. 


Make sure the data is in the se- 
quence specified (A or D) in column 
45 or 57. Resubmit the job. 


User Response: 


RG333—TABLE/ARRAY FULL OR NO TABLE/ 
ARRAYS FOR FOLLOWING DATA 


Code: W—Warning 

Specification Type: | Not applicable 

Explanation: Either too much data is supplied 
for the table or array or no table 
or array is defined for the data 
supplied. 

System Action: No more data is accepted for 


tables or arrays. 

Make sure the data supplied does 
not exceed the maximum table 
size or that a table or array is de- 
fined for the data you supply. Re- 
submit the job. 


User Response: 


RG334—SHORT TABLE 


Code: W—Warning 
Specification Type: | Not applicable 
Explanation: The number of entries supplied is 


less than the maximum number of 
entries the table can contain. 
The remaining entries are filled 


with blanks or zeros 


aOR LAG VE OWL Ue 


System Action: 


User Response: None required. 


RG335—EDIT WORD SPECIFIED WITH OTHER THAN 
UNPACKED NUMERIC FIELDS 


Code: T—Terminal 
Specification Type: O 
Explanation: Edit words are allowed only with 


unpacked numeric fields. 

The job is terminated. 

Specify edit words for unpacked 
numeric fields only. Resubmit 
the job. 


System Action: 
User Response: 


RG337—INVALID SEQUENCE FOR EXIT AND RLABL 
OP CODES 


Code: T 
Specification Type: C 
Explanation: The RLABL operation code does 


not immediately follow an EXIT 
operation. 

The job is terminated. 

Make sure that RLABL operations 
follow an EXIT operation in you 
calculation specifications. Re- 
submit the job. 


System Action: 
User Response: 


RG338—SUBR SHOULD BE USED WITH EXIT OP CODE 


Code: T—Terminal 
Specification Type:  C 
Explanation: The entry specified in Factor 2 of 


an EXIT operation does not start 
with SUBR. 

The job is terminated. 

Make sure the subroutine name in 
Factor 2 starts with SUBR. Re- 
submit the job. 


System Action: 
User Response: 
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RG339—AN OUTPUT REFERENCE IS REQUIRED FOR 
EACH COMBINED OR UPDATE FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F 

The proper output specifications 
have not been specified for the 
combined or update file. 

The job is terminated. 

Specify the proper output specifi- 
cations for the combined or update 
file. A table output specification 
will meet the requirements for a 
combined file. Resubmit the job. 


RG340—CONTROL/TRIBUTARY, COLUMN 17, 
CONTAINS A BLANK FOR A MULTIPOINT LINE. 


ASSUME T 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

T 

Column 17 was left blank for a 
multipoint line (M in column 15). 
T is assumed. 

To avoid this message when this 
job is run again, enter a T in col- 
umn 17, or change the configura- 
tion entry in column 15. 


RG341—CONTROL/TRIBUTARY, COLUMN 17, 
CONTAINS A T FOR A SWITCHED OR A POINT TO 
POINT NETWORK. ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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W—Warning 

T 

Column 17 contains a T for a 
point-to-point network (P in col- 
umn 15). 

Blank is assumed. 

To avoid this message when this 
job is run again, leave column 17 
blank, or change the configuration 
entry in column 15. 


RG342—TRANSPARENT MODE IS SPECIFIED, 
COLUMN 19, WHEN ASCII CONTROL CHARACTERS, 
COLUMN 18, ARE TO BE USED 


Code: T—Terminal 
Specification Type: T 
Explanation: The transparent mode cannot be 


specified on an adapter using 
ASCII data link characters. 
System Action: The job is terminated. 
User Response: Make the proper entry in column 
19 and resubmit the job. 


RG343—AUTOCALL/AUTOANSWER, COLUMN 20, IS 
NOT BLANK FOR NON-SWITCHED NETWORK 


Code: T—Terminal 


Specification Type: T 


Explanation: Column 20 contains an entry for a 
network that is not switched. 

System Action: The job is terminated. 

User Response: Leave column 20 blank for a net- 
work that is not switched. Resubmit 
the job. 


RG344—SYMBOL FOR DIAL NUMBER, COLUMNS 21-31, 
IS AN ARRAY 


Code: T—Terminal 

Specification Type: T 

Explanation: An array name was used as the dial 
number. 

System Action: The job is terminated. 

User Response: Enter the table element or field 


name to be used as the dial number 
in columns 21-31. If vou want to 
use an array element as the dial 
number, you must use calculation 
specifications to move the contents 
of the array element into the field 
you specify in columns 21-31. Re- 
submit the job. 


RG345—FIELD OR TABLE HOLD AREA FOR THE 
DIAL NUMBER WAS NOT DEFINED AS NUMERIC 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

The field or table hold area for the 
dial number specified in columns 
21-31 was not defined as numeric. 
The job is terminated. 

Define the field or table hold area 
for the dial number specified in 
columns 21-31 as numeric. Re- 
submit the job. 


RG346—COLUMN 32 IS NOT BLANK FOR A NON- 


SWITCHED NETWORK 

Code: T-—Terminal 

Specification Type: T 

Explanation: Column 32 was not left blank for a 


System Action: 
User Response: 


non-switched network. 

The job is terminated. 

Leave column 32 blank for a non- 
switched network and resubmit the 
job. 


RG347—IDENTIFICATION FOR THIS STATION, 
COLUMNS 33-39, CONTAINS AN ARRAY 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-Terminal 

T 

An array name was used as the 
station identification. 

The job is terminated. 

Enter the table element or field 
name to be used as the station 
identification in columns 33-39. 
If you want to use an array element 
as the station identification, you 
must use calculation specifications 
to move the contents of the array 
element into the field you specify 
in columns 33-39. Resubmit the 
job. 


RG348—COLUMN 40 IS NOT BLANK FOR A NON- 


SWITCHED NETWORK 

Code: T-—Terminal 

Specification Type: T 

Explanation: Column 40 was not left blank for 


System Action: 
User Response: 


a non-switched network. 

The job is terminated. 

Leave column 40 biank for a non- 
switched network and resubmit 
the job. 


RG349—IDENTIFICATION FOR THE REMOTE STATION, 
COLUMNS 41-47, CONTAINS AN ARRAY 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

An array name was used as the re- 
mote station identification. 

The job is terminated. 

Enter the table element or field 
name to be used as the remote 
station identification in columns 
41-47. If you want to use an array 
element as the remote station identi- 
fication, you must use calculation 
specifications to move the contents 
of the array element into the field 
you specify in columns 41-47. Re- 
submit the job. 


RG350—RECORD AVAILABLE INDICATOR IS 
PRESENT ON TRANGMIT FILE, OR IN A PROGRAM 
WITH ONLY 1 BSCA FILE. INDICATOR IS DROPPED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

T 

A record available indicator was 
specified for a transmit file or in a 
program which has only one BSCA 
file. 

The indicator is ignored. 

Remove the record available indica- 
tor or define the other BSCA file if 
a transmit interspersed with a re- 
ceive program is desired. Resubmit 
the job. 
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RG351—LAST FILE PROCESSED, COLUMN 60, IS NOT 
BLANK ON A TRANSMIT FILE OR A PRIMARY INPUT 
FILE. THE ENTRY IS IGNORED 


Code: W—Warning 
Specification Type: T 
Explanation: L was entered in column 60 for a 


transmit file or for a primary input 
file. 

The entry is ignored. 

Remove the L from column 60 if 
the file is a transmit file. If it isa 
primary input file, remove the L or 
change the file designation to 
secondary. Resubmit the job. 


System Action: 
User Response: 


RG352—POLLING CHARACTERS WERE GIVEN ON 
OTHER THAN A TRANSMIT FILE ON A MULTIPOINT 
NETWORK. THE ENTRY IS IGNORED 


Code: W—Warning 
Specification Type: T 
Explanation: Polling characters are specified in 


columns 61-62 for a file other than 
a transmit file on a multipoint net- 
work, 

The entry in columns 61-62 is ig- 
nored. 

To avoid this message when this 
job is run again, remove the entry 
from columns 61-62. 


System Action: 


User Response: 


RG353—THERE IS AN ENTRY IN THE ADDRESSING 
CHARACTERS, COLUMNS 63-64, ON A FILE THAT IS 
NOT A MULTIPOINT RECEIVER FILE. THE ENTRY 
IS IGNORED 


Code: W—Warning 
Specification Type: T 
Explanation: Addressing characters are specified 


in columns 63-64 for a file that is 
not a multipoint receiver file. 

The entry in columns 63-64 is ig- 
nored. 

To avoid this message when this 
job is run again, remove the entry 
from columns 63-64. 


System Action: 


User Response: 
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RG354—CORRESPONDING FILE DESCRIPTION SPEC 
FILE IS NOT A BSC FILE 


Code: T—Terminal 
Specification Type: T 
Explanation: A BSC device entry was not made 


for this file on the File Description 
sheet. 

The job is terminated. 

Make a BSC device entry for this 
file on the File Description sheet. 
Resubmit the job. 


System Action: 
User Response: 


RG355—A CONVERSATIONAL FILE WAS DEFINED 
WHEN NO CONVERSATIONAL FILE IS ALLOWED 


Code: T—Terminal 

Specification Type: T 

Explanation: A conversational file is not allowed 
with 2770/2780. 

System Action: The job is terminated. 


Correct the telecommunications 
specification and resubmit the job. 


User Response: 


RG356—PACKED FIELD OR BINARY FIELD 
SPECIFIED IN A FILE WITHOUT THE TRANSPARENT 
FEATURE 


Code: T—Terminal 
Specification Type: T 
Explanation: A packed or binary field was speci- 


fied for a file that does not have 
the transparent feature. 

The job is terminated. 

Be sure packed or binary fields are 
only specified for files with the 
transparent feature. Resubmit the 


job. 


System Action: 
User Response: 


RG357—THE FILE CORRESPONDING TO THIS 
TRANSMITTER SPECIFICATION IS NOT A COMBINED 
OR AN OUTPUT FILE ON THE FILE DESCRIPTION 
SPECIFICATION 


Code: T—Terminal 
Specification Type: T 
Explanation: The transmitter file was not de- 


fined as a combined or output file 
on the File Description sheet. 

The job is terminated. 

Define the transmitter file as a com- 
bined file or an output file on the 
File Description sheet. Resubmit 
the job. 


System Action: 
User Response: 


RG358—CORRESPONDING FILE DESCRIPTION SPEC 
FILE IS NOT DEFINED AS A COMBINED OR AN 
INPUT FILE FOR THIS RECEIVE FILE 


Code: T—Terminal 
Specification Type: T 
Explanation: The receive file was not defined on 


the File Description sheet as a com- 
bined file or as an input file. 

The job is terminated. 

Define the receive file as a combined 
file or as an input file on the File 
Description sheet. Resubmit the 
job. 


System Action: 
User Response: 


RG359—BLOCKED RECORD DEFINED FOR A FILE 
WITH CONVERSATIONAL RESPONSES. ASSUME NO 
BLOCKING 


Code: W—Warning 
Specification Type: T 
Explanation: Blocked records must not be de- 


fined for a file with conversational 
responses. 

No blocking is assumed. 

To avoid this message when this 

job is run again, remove the blocked 
records specification. 


System Action: 
User Response: 


RG360—THERE IS NO TELECOMMUNICATIONS SPEC 
FOR A FILE DEFINED AS A BSCA FILE ON THE FILE 
DESCRIPTION SPECS 


Code: T-Terminal 
Specification Type: T 
Explanation: No telecommunications specifica- 


tions were supplied for a file that 
was described as a BSCA file on 
the File Description sheet. 

The job is terminated. 

Supply the proper telecommunica- 
tions specifications and resubmit 
the job. 


System Action: 
User Response: 


RG361—LOOK AHEAD FIELDS SPECIFIED FOR BSC 
FILE 


Code: T-—Terminal 
Specification Type: T 
Explanation: Look ahead fields are not allowed 


for a BSC file. 

The job is terminated. 

Remove the look ahead specifica- 
tion for BSC file and resubmit the 
job. 


System Action: 
User Response: 


RG362—MATCHING FIELDS DEFINED ON A TRANSMIT 
FILE WITH CONVERSATIONAL RESPONSE 


Code: T—Terminal 
Specification Type: T 
Explanation: Matching fields are not allowed for 


a transmit file with conversational 
responses. 

The job is terminated. 

Remove the matching fields 
definition for transmit file with 
conversational responses. 


System Action: 
User Response: 
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RG363—MATCHING FIELDS DEFINED FOR A FILE 
DESIGNATED TO BE THE LAST FILE PROCESSED IN 
COLUMN 60 OF THE TELECOMMUNICATIONS SPEC 


Code: T-Terminal 

Specification Type: T 

Explanation: Matching fields were defined for a 
file designated as the last file to be 
processed (L in column 60). 

System Action: The job is terminated. 


Remove the matching fields 
definition if the file was the last 
one to be processed, or remove the 
Lentry in column 60. Resubmit 
the job. 


User Response: 


RG364—FOR A TRANSMIT THEN RECEIVE BSCA 
PROGRAM, IF END-OF-FILE IS SPECIFIED FOR ANY 
INPUT FILE, E IS ASSUMED IN COLUMN 17 OF THE 
BSCA INPUT FILE 


Code: W—Warning 

Specification Type: T 

Explanation: E was entered in column 17 of some 
input files, but not for the BSCA 
file which has an L in column 60 of 
the Telecommunications sheet. 

System Action: EBCDIC is assumed if end of file 


(E in column 17 of the File Descrip- 
tion sheet) is specified for any input 
file the program uses. 

If the assumption was wrong, re- 
move the L from column 60 or 
make the proper end of file entry 
on the Input sheet. Resubmit the 


User Response: 


job. 
RG365—ITB IS SPECIFIED ON A FILE WITHOUT 
BLOCKED RECORDS. ITB IS DROPPED 
Code: W—Warning 
Specification Type: T 
Explanation: Intermediate block check (ITB) was 


specified for a file which does not 
have blocked records. 

The intermediate block check 
specification (I in column 52) is 
ignored. 

To avoid this message when this 
job is run again, remove the I from 
column 52 or define blocked 


records. Resubmit the job. 


System Action: 


User Response: 
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RG366—AUTOCALL/AUTOANSWER, COLUMN 20, IS 
BLANK FOR A SWITCHED NETWORK 


Code: T—Terminal 
Specification Type: T 
Explanation: Column 20 was left blank for a 


switched network. 

The job is terminated. 

Make the proper entry (M, E, S, A, 
or B) in column 20 for a switched 
network. 


System Action: 
User Response: 


RG367—A TRANSMIT WITH CONVERSATIONAL 
RESPONSE FILE IS USED WITH FORCE OR READ OP 


CODE OR AS A PRIMARY FILE 

Code: T-—Terminal 

Specification Type: T 

Explanation: (1) Neither the FORCE nor the 


READ operation code can be 
used with a transmit file which 
has conversational responses. 
(2) A transmit file with conversa- 
tional responses cannot be a 
primary file. 
The job is terminated. 
Remove the FORCE or READ 
operation code or change the file 
designation from primary. Re- 
submit the job. 


System Action: 
User Response: 


RG368—THE FIELD OR TABLE HOLD AREA USED 
FOR A STATION IDENTIFICATION, COLUMNS 33-39 
OR COLUMNS 41-47, IS MORE THAN FIFTEEN 
CHARACTERS IN LENGTH, OR DIAL NUMBER IS 


MORE THAN TWELVE DIGITS 

Code: T—Terminal 

Specification Type: T 

Explanation: Either the field or table hold area 


used for a station identification 
(columns 33-39 or 41-47) contains 
more than 15 characters, or the 

dial number (columns 21-31) con- 
tains more than 12 digits. 

The job is terminated. 

Be sure that the field or table hold 
area used for a station identification 
is numeric and from 2 to 15 charac- 
ters long. If you specify a dial num- 
than 19 


characters long. Resubmit the job. 


System Action: 
User Response: 


haar bre ative it je nat mana 
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RG369—WARNING: ONLY ONE I/O AREA WAS 
SPECIFIED ON A NON-CONVERSATIONAL FILE. 


THROUGHPUT MAY BE SLOW 

Code: W—Warning 

Specification Type: T 

Explanation: Because only one I/O area is speci- 


fied for a non-conversational file, 
processing time is likely to be slow. 
No action taken. 

To avoid this message when the job 
is run again, specify dual I/O areas 
if the program size permits. 


System Action: 
User Response: 


RG370—THE LINE CONFIGURATION AND LINE 
CONTROL ENTRIES, COLUMN 15 OR 17-47, ARE 
NOT THE SAME ON EACH TELECOMMUNICATIONS 


SPEC 

Code: T—-Terminal 

Specification Type: T 

Explanation: The line configuration and line con- 


trol entries (column 15 or 17-47) 

are not the same for each BSC file. 
The job is terminated. 

Make the same entries in columns 

15 and 17-47 for each BSC file in 

the program. Resubmit the job. 


System Action: 
User Response: 


RG371—WARNING: THE STATION IDENTIFICATION, 
COLUMNS 33-39 OR 41-47, HAS BEEN DEFINED AS 
ONLY ONE CHARACTER IN LENGTH. THE 
CHARACTER WILL BE DUPLICATED SO A TWO 
CHARACTER IDENTIFICATION WILL BE USED 


Code: W—Warning 

Specification Type: T 

Explanation: The station identification entry 
(columns 33-39 or 41-47) was 
specified as a 1-character field. 

System Action: The character is duplicated to pro- 


vide a two-character identification 
field. 

If the assumption was wrong, specify 
a station identification which is at 
least 2 characters, but no more than 
12 character long. Resubmit the 
job. 


User Response: 


RG372—A B IN COLUMN 37 OF THE CONTROL CARD 
IS AN INVALID ENTRY IN A BSCA PROGRAM 


Code: T—Terminal 

Specification Type: H 

Explanation: A Bentry must not be specified in 
column 37 of the control card 
specifications for a BSCA program. 

System Action: The job is terminated. 


Remove the B entry from column 
37 of the control card specifications 
and resubmit the job. 


User Response: 


RG373—THE SAME FILENAME WAS GIVEN ON TWO 


TELECOMMUNICATIONS SPECS 

Code: T—Terminal 

Specification Type: T 

Explanation: A BSCA file must not have multiple 


definitions. 

The job is terminated. 

Specify a unique filename on each 
Telecommunications sheet used in 
this program. Resubmit the job. 


System Action: 
User Response: 


RG374—ENTRY IN COL 16 INVALID 


Code: W—Warning 

Specification Type: F 

Explanation: The entry in column 16 of the file 
description specifications is not P, 
S, C, R, T, D, or blank. 

System Action: Blank is assumed if the file is an 


output file; otherwise, S is assumed. 
If the assumption was wrong, make 
the proper entry in column 16 and 
resubmit the job. 


User Response: 


RG375—ID IN COL 75-80 OF CONTROL CARD MUST 
NOT BE BLANK WHEN C IS SPECIFIED IN COL 10, 


ASSUME BLANK IN COL 10 

Code: W—Warning 

Specification Type: H 

Explanation: A C is specified in column 10 of 


your control card specifications, 
but no program identification is 
specified in columns 75-80. 
Column 10 is assumed to be blank. 
When C is specified in column 10 of 
your control card specification, 
place the proper program name in 
columns 75-80. Resubmit the job. 


System Action: 
User Response: 
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RG376—INVALID NAME IN COLS 75-80 OF CONTROL 
CARD, ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

H 

The entry in columns 75-80 of 
your header line is neither a valid 
RPG program name nor blanks. 
Blanks are assumed. 

If this assumption was wrong, make 
the proper program name entry and 
resubmit the job. 


RG377—RAF, COLUMN 31, IS NOT ALLOWED ON A 


BSCA FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminai 

F 

A BSCA file cannot be specified as 
a record address file. 

The job is terminated. 

Remove the record address file 
specification for a BSCA file and 
resubmit the job. 


RG378—NO LINE COUNTER SPECIFICATION FOR THIS 
BSCA FILE, ASSUME PAGE SIZE-66, OVERFLOW 


LINE-60 

Code: 

Specification Type: 
Explanation: 


System Action: 


User Response: 


W—Warning 

T 

Entries must be specified if the 
page size and overflow line differ 
from assumed values. 

Page size of 66 is assumed; overflow 
line of 60 is assumed. 

Verify that page size of 66 is 
correct for this job. 


RG379—MULTI-POINT INVALID WITH 2770 OR 2780 


Code: 
Specification Type: 
Explanation: 
System Action: 
User Response: 
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T—Terminal 

T 

Column 15 must be P, S, or blank. 
The job is terminated. 

Correct column 15 and resubmit the 
job. 


RG380—2770 AND 2780 CANNOT BE SPECIFIED IN 


THE SAME PROGRAM 

Code: T—Terminal 

Specification Type: T 

Explanation: Both 2770 and 2780 have been 


System Action: 
User Response: 


specified in the same job. 

The job is terminated. 

Specify either 2770 or 2780 but 
not both. 


RG381—INVALID DEVICE SPECIFIED FOR THE 


REMOTE TERMINAL USED 
Code: T-—Terminal 
Specification Type: T 


SGLi1G 0207 


Explanation: 


System Action: 
User Response: 


Device specified in columns 65-70 
is not a valid remote device. 

The job is terminated. 

Specify a valid device for the 


remote terminal used. 


RG382—INVALID REMOTE DEVICE FOR FILE TYPE 


SPECIFIED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

T 

An output device was specified for 
an input file or an input device was 
specified for an output file. 

The job is terminated. 

Specify a valid remote device for 
the type of operation being per- 
formed and resubmit the job. 


RG383-—ITB AND TRANSPARENCY SPECIFIED FOR 
2770. ITB IS DROPPED 


see 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


W—Warning 

T 

When 2770 is specified, specify 
either ITB (column 52) or trans- 
parency (column 19) but not both. 
Blank is assumed for column 52 
(ITB) 

Verify that the assumption is 
correct for this job. 


RG388—FACTOR 1 MUST BE EITHER A FIELD NAME 
OR A LITERAL WHEN USED WITH DEBUG OPERATION 


Code: T—Terminal 
Specification Type: C 
Explanation: Factor 1 can only be a field name or 


a literal when the DEBUG operation 
is specified. 

The job is terminated. 

Make Factor 1 either a field name 
or a literal and resubmit the job. 


System Action: 
User Response: 


RG389—LO-L9 INDICATOR SPECIFIED IN AN OR 


RELATIONSHIP WITH LR 

Code: W—Warning 

Specification Type: O 

Explanation: An LO-L9 indicator should not be 


specified in an OR relationship 

with an LR indicator. 

Operations specified in this relation- 
ship will be done twice at LR time. 
Do not specify an LO-L9 indicator 
in an OR relationship with an 

LR indicator unless you want 

the specified operations to be done 
twice. Resubmit the job if neces- 


sary. 


System Action: 


User Response: 


RG390—SEQUENCE CHECKING IS NOT PERFORMED 


ON EXECUTION TIME ARRAYS 

Code: W—Warning 

Specification Type: E 

Explanation: Sequence must be specified if high 


or low LOKUP is to be done; 
however, no sequence checking is 
done at input time. 

A sequenced array is assumed. 

Be sure the array is in ascending 
or descending sequence. 


System Action: 
User Response: 


RG391—A FIELD WITH A LENGTH GREATER THAN 
8 CHARACTERS CANNOT BE USED IN FACTOR 1 


WITH DEBUG OPERATION 

Code: T—Terminal 

Specification Type: C 

Explanation: The length of a Factor 1 field 


cannot be greater than eight 
characters when a DEBUG opera- 
tion is specified. 


System Action: The job is terminated. 


User Response: Limit the length of the Factor 1 
field to eight characters. Resubmit 
the job. 


RG392—LAST ENTRY IN ONE OR MORE COMPILE 
TIME TABLE/ARRAYS WAS BLANK 


Code: W—Warning 
Specification Type: E 
Explanation: The compile time table/array con- 


tains fewer entries than the number 
of entries specified in columns 

36-39 of the Extension specifications. 
A warning message is given. 

If the assumption was wrong, re- 
view your compile time tables/arrays 
and fill the table. 


System Action: 
User Response: 


RG394—‘ADD’ IN COL 16-18 NOT ALLOWED ON 
AND/OR LINES, ASSUME BLANK 


Code: T—Terminal 
Specification Type: O 
Explanation: ADD was specified in columns 


16-18 of an AND/OR line in out- 
put specifications. 

Blank is assumed, but the job is 
terminated. 

Remove the ADD entry from col- 
umns 16-18 of the AND/OR line 
and resubmit the job. 


System Action: 


User Response: 
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RG397—FILE DESCRIBED AS ‘ADD’ TYPE FILE, EACH 
OUTPUT LINE MUST HAVE ‘ADD’ IN COL 16-18. 
ASSUME ‘ADD’ 


Code: W—Warning 
Specification Type: O 
Explanation: The ADD function (A in column 


66) was specified in the file descrip- 
tion specifications for this file, but 
ADD was not specified in columns 
16-18 of the Output sheet for each 
record type output line to be 


written. 
System Action: ADD in columns 16-18 is assumed. 
User Response: To avoid this message the next time 


this job is run, remove the A from 
column 66 of the file description 
specifications or specify ADD in 
columns 16-18 of the output speci- 
fications for each record type out- 
put line to be written. 


RG398—COLS 54-59, INVALID FOR DEVICE, OR 
WRONG ENTRY, ASSUME BLANK 


Code: T—Terminal 
Specification Type: F 
Explanation: Columns 54-59 contain an entry 


for a file which was not assigned to 
a SPECIAL device (SPECIAL in col- 
umns 40-46). 

System Action: Blank is assumed, but the job is 
terminated. 

User Response: Leave columns 54-59 blank for file 
not assigned to a SPECIAL device. 
Resubmit the job. 


RG399—INVALID ENTRY IN COLS 54-59 


Code: T-—Terminal 
Specification Type: F 
Explanation: The entry in columns 54-59 of 


your file description specifications 
for a SPECIAL file is not SUBRxx 
(x = any alphabetic character). 


System Action: The job is terminated. 
User Response: Enter the name of the user-written 
subroutine (SUBRxx) which will 


perform the input/output opera- 
tions for the SPECIAL file. Re- 
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RG400—INVALID MODE OF PROCESSING ENTRY IN 


COLUMN 28 
Code: 
Specification Type: 


Explanation: 


System Action: 


User Response: 


T—Terminal 

F 

The entry in column 28 is not R, 
L, or blank. 

R is assumed for valid file type or 
mode of processing; the job is 
terminated. 

Make proper mode of processing 
entry in column 28 and resubmit 
the job. 


RG401—ONLY ONE TABLE/ARRAY PER FILENAME 


ALLOWED FOR THIS DEVICE 

Code: T-—Terminal 

Specification Type: E 

Explanation: Only one table or array can be 


System Action: 
User Response: 


specified per file (except for a card 
file). 

The job is terminated. 

Specify only one table or array per 
file (except for card files) and re- 
submit the job. 


RG403—INVALID LENGTH OF KEY FIELD IN 
COLUMN 29-30, ASSUME 03 


Code: 
Specification Type: 
Explanation: 


System Action: 


User Response: 


T—Terminal 

F 

The length of key field entry in 
columns 29-30 is not specified 
properly. The entry must be 29 or 
less for unpacked keys, 8 for packed 
keys. 

03 is assumed, but the job is 
terminated. 

Make the length of key field entry 
in columns 29-30 a valid key length. 
Resubmit the job. 


RG404—INVALID RECORD ADDRESS TYPE ENTRY 


IN COLUMN 31, ASSUME A 

Code: T-—Terminal 

Specification Type: F 

Explanation: The entry in column 31 is not A, 


System Action: 
User Response: 


I, or blank. 

A is assumed: the iob is terminated. 
Make the proper record address 
type entry in column 31 and re- 
submit the job. 


RG405—INVALID KEY START LOCATION ENTRY IN 
COLUMNS 35-38, ASSUME 1 


Code: T—Terminal 
Specification Type: F 
Explanation: Columns 35-38 do not contain a 


number from 1-4096 for an in- 
dexed file. 

1 is assumed; the job is terminated. 
Make the proper key start location 
entry in columns 35-38 and re- 
submit the job. 


System Action: 
User Response: 


RG406—INVALID CORE INDEX ENTRY IN COLS 
60-65, ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Columns 60-65 do not contain a 


number from 6-9999 for an indexed 
file processed randomly. 

Blank is assumed. 

If this assumption was wrong, make 
the proper core index entry in col- 
umns 60-65 and resubmit the job. 


System Action: 
User Response: 


RG407—INVALID FILE ADDITION OR UNORDERED 
ENTRY IN COLUMN 66, ASSUME A 


Code: T—Terminal 
Specification Type: F 
Explanation: The file addition or unordered load 


entry in column 66 is not A, U, or 
blank. 

A is assumed; the job is terminated. 
Make the proper file addition or 
unordered load entry in column 66 
and resubmit the job. 


System Action: 
User Response: 


RG408—NUMBER OF EXTENTS ENTRY IN COLS 
68-69 IS INVALID OR NOT ALLOWED WITH DEVICE, 
ASSUME BLANK 


Code: T-—Terminal 
Specification Type: F 
Explanation: Columns 68-69 contain an entry 


for some device other than disk or 
contain an entry which is not 01-50 
or blank. 

Blank is assumed; the job is 
terminated. 

Make the proper entry in columns 
68-69 and resubmit the job. 


System Action: 


User Response: 


RG409—ENTRY OF K MADE IN COLUMN 31 FOR 
RECORD ADDRESS TYPE, ASSUME A 


Code: W—Warning 
Specification Type: F 
Explanation: An entry of K is not allowed in 


column 31 for record address type. 
A is assumed. 

If this assumption was wrong, make 
the proper entry in column 31 and 

resubmit the job. 


System Action: 


User Response: 


RG410—EXTENSION SPECIFICATION SHEET BLANK 


Code: T—Terminal 
Specification Type: Not applicable 
Explanation: An E was specified in column 39 


of a File Description sheet, but no 
Extension specifications were en- 
tered. 

The job is terminated. 

You must supply the proper exten- 
sion specifications and resubmit the 
job. 


System Action: 
User Response: 


RG411—RESERVED COLUMNS 71—74 ARE NOT 
BLANK 


Code: W—Warning 

Specification Type:  T 

Explanation: Columns 71—74 on the Telecom- 
munications Specifications are 
reserved and should be blank. 

System Action: Blanks are assumed. 


User Response: Leave columns blank. 


RG450—BUFOFF SPECIFIED ON AN OUTPUT FILE 


Code: T—Terminal 

Specification Type: F 

Explanation: System/3 cannot create tapes with 
a block prefix. 

System Action: BUFOFF entry is ignored; job is 
terminated. 

User Response: Remove BUFOFF and resubmit 
the job. 
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RG451—CONTINUATION (K IN COL 53) SPECIFIED 
FOR FILE OTHER THAN A TAPE FILE 


Code: T—Terminal 

Specification Type: F 

Explanation: Continuation is only allowed on 
tape files. 

System Action: Continuation is ignored; job is 
terminated. 


User Response: Remove the continuation (K in 


column 53) and resubmit the job. 


RG452—ENTRY IN COL 54-59 OF A CONTINUATION 
CARD IS NOT VALID 


Code: T—Terminal 
Specification Type F 


Explanation: The only valid entries in columns 
54-59 of a continuation card are 
ASCII and BUFOFF. 


System Action: The continuation card is ignored; 
job is terminated. 


User Response: Correct or remove the entry. 


RG453—-CONTINUATION ENTRY IN COL 54-59 IS RE- 
PEATED FOR A FILE, SECOND ENTRY IGNORED 


Code: W—Warning 
Specification Type: F 
Explanation: Each of the continuation entries 


ASCII and BUFOFF may appear 
only once for any one file. 

The second usage of the entry is 
ignored. 

To avoid this message on the next 
run remove the repeated continua- 
tion entry. 


System Action: 


User Response: 


RG454—INVALID BUFFER OFFSET SPECIFIED ON 
COL 60-65 


Code: T—Terminal 

Specification Type: F 

Explanation: The buffer offset must have a value 
between 0 and 99. 

System Action: The continuation card is ignored. 


The job is terminated. 
Correct the value in columns 60-65 
and resubmit the job. 


User Response: 
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RG455—COLUMNS 7-52 AND 66-72 ARE NOT BLANK 
FOR A CONTINUATION LINE, ASSUME BLANK. 


Code: W—Warning 
Specification Type: F 
Explanation: If continuation is specified, these 


columns must be blank. 

Entries in columns 7-52 and 66-72 
are ignored. 

If this assumption is incorrect, re- 

move the continuation entries and 
resubmit the job. 


System Action: 


User Response: 


RG456—RECORD LENGTH SPECIFIED FOR A TAPE 
FILE IS LESS THAN 18 


Code: T—Terminal 
Specification Type: F a 
Explanation: The minimum recoresize allowed 


on tape files is 18 characters. 

The job is terminated. 

Correct the record length to 18 or 
greater and resubmit the job. 


System Action: 
User Response: 


RG457—ENTRIES IN COL 53 AND/OR 70 NOT BLANK 
FOR NONTAPE FILE, ASSUME BLANK 


Code: W—Warning 

Specification Type: F 

Explanation: Entries are allowed in columns 53 
and/or 70 only on tape files. 

System Action: Entries in columns 53 and 70 are 


ignored. 

To avoid this message on the next 
run, leave columns 53 and/or 70 
blank. 


User Response: 


“Tr or + 


RG458—BUFOFF SPECIFIED IN COL 54-59 FOR A NON- 
ASCII TAPE FILE, ASSUME ASCH 


Code: W—Warning 

Specification Type: F 

Explanation: The BUFOFF entry is valid only on 
files that are ASCII files. 

System Action: An ASCII file with BUFOFF is 
assumed. 


User Response: If this assumption is wrong, remove 
BUFOFF from columns 54-59 and 


resubmit the job. 


RG459—COLUMNS 60-65 ARE NOT BLANK WHEN 
ASCII IS ENTERED IN COL 54-59 


Code: W—Warning 

Specification Type: F 

Explanation: If ASCII is specified, no entry is 
aliowed in columns 60-65. 

System Action: The entry in columns 60-65 is 


ignored. 
To avoid this message on the next 
run, leave columns 60-65 blank. 


User Response: 


RG460—INVALID ENTRY IN COL 53 


Code: T—Terminal 
Specification Type: F 
Explanation: Valid entries are K, or blank. 


The job is terminated. 
Correct the entry in columns 53 and 
resubmit the job. 


System Action: 
User Response: 


RG461—INVALID ENTRY IN COL 70, ASSUME BLANK 


Code: W—Warning 
Specification Type: F 
Explanation: Valid entries are R, U, or N. 


Tape rewind information specified 
at job execution time assumed. 
Verify that the execution time 


System Action: 


User Response: 


rewind information will be adequate. 


If not, correct column 70 and resub- 
mit the job. 


RG462—CONTINUATION, K IN COL 53, INVALID FOR 
MAIN FILE DESCRIPTION LINE. ASSUME BLANK. 


Code: W—Warning 
Specification Type: F 
Explanation: K is valid only on a continuation 


file description specification. 
Blank is assumed. 

To avoid this message on the next 
run, leave column 53 blank. 


System Action: 
User Response: 


RG500—FROM NAME INVALID OR MISSING FROM 
RA FILE 


Code: T—Terminal 
Specificaton Type: E 
Explanation: The From Filename entry in col- 


umns 11-18 is missing or not speci- 
fied properly for an RA file. 

The job is terminated. 

Enter the proper record address file- 
name in columns 11-18 and resub- 
mit the job. 


System Action: 
User Response: 


RGS02—FROM FILENAME IS A MULTI DEFINED RA 
FILE 


Code: T—Terminal 
Specification Type: E 
Explanation: The entry in columns 19-26 is not 


the name of the file being processed 
by the RA file named in columns 
11-18. 

The job is terminated. 

Make the proper entry in columns 
19-26 and resubmit the job. 


System Action: 
User Response: 


RG503—TO FILENAME FOR A RA FILE TYPE IS 
EITHER: 1—NOT A PRIMARY, SECONDARY OR 
DEMAND FILE OR 2-IS MISSING, INVALID OR NON 
DISK FILE 


Code: T—Terminal 
Specification Type: E 
Explanation: The To Filename entry in columns 


19-26 must be a primary or secon- 
dary disk file to be processed by 

an RA file. 

The job is terminated. 

Make the proper To Filename entry 
in columns 19-26 and resubmit the 
job. 


System Action: 
User Response: 


RGS5S04—TO FILENAME IS INCORRECT FILE TYPE 


Code: T—Terminal 
Specification Type: E 
Explanation: The filename specified in columns 


19-26 is not an input, output, or 
update file. 

The job is terminated. 

Make sure the file named in columns 
19-26 is an input, output, or update 
file. Resubmit the job. 


System Action: 
User Response: 


RGS10—LENGTH GIVEN FOR BINARY FIELD IS NOT 
2 OR 4, ASSUME 2 


Code: T—Terminal 
Specification Type: 1,0 
Explanation: Binary field length specified is 


neither 2 nor 4 bytes. 

The job is terminated. 

Make the length of the binary field 
either 2 or 4 bytes. Resubmit the 
job. 


System Action: 
User Response: 
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RG511—PACKED LENGTH GREATER THAN 8 FOR A 


FIELD, TABLE, OR ARRAY 

Code: T—Terminal 

Specification Type:  I,O 

Explanation: The length specified for a packed 


System Action: 
User Response: 


field, table, or array is greater than 
8. 

The job is terminated. 

Specify a length of 8 or less for a 
packed field, table, or array. Re- 
submit the job. 


RG516—MORE THAN 7 AN/OR LINES SPECIFIED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 
Cc 


More than 7 consecutive AN/OR 
line specified in the calculation 
specifications. 

The job is terminated. 

Specify up to 7 consecutive AN, 
OR, or AN/OR lines to condition 
an operation. Resubmit the job. 


RGS5S17—AN/OR LINES OUT OF ORDER 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

The line immediately following a 
line with an operation code is an 
AN/OR line. 

The job is terminated. 

Remove the AN/OR entry in col- 
umns 7-8 from the first line in an 
AN/OR group and resubmit the job. 


RG518—NO INDICATORS GIVEN WITH AND/OR LINES 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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W—Warning 

C 

At least one indicator should be 
given in an AN or OR line. 

Warning is issued. 

Correct or remove the specifications 
to eliminate the warning error. 


RGS19—COLUMNS 18-59 ARE INVALID WITH AN/OR 
LINES OR OP CODE IS MISSING WITH INDICATORS 
PRESENT, ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

Only the last line of a group of 
AN/OR lines can have entries in 
columns 18-59 or indicators are 
specified in columns 7-17, but no 
operation is specified in columns 
28-32. 

The job is terminated. 

Make sure that entries are made 
only in columns 18—59 of the 
last line of a group of AN/OR lines 
or make the proper operation 
code entry in columns 28—32 
Resubmit the job. 


RG520—THIS LINE IS NOT AN AN/OR LINE AND 
PREVIOUS LINE HAS NO OP CODE; OR THIS LINE 
HAS NO INDICATORS AND NO OP CODE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

C 

This line is not an AN/OR line and 
previous line has no operation 
code specified. 

The job is terminated. 

If this line should be an AN/OR 
line, enter an AN/OR entry in 
columns 7—8; if this line should 
have had an operation code (an 
operation code must be entered 
in the last line of a group of 
AN/OR lines), make the proper 
operation code entry in columns 
28-39. Resubmit the iob 
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RG5S21—MINUS INDICATOR IS NOT ALLOWED FOR 
TEST BIT OPERATION OF ONLY 1 BIT 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

C 

Columns 56-57 (Minus) must be 
blank when only one bit is speci- 
fied for a TESTB operation. 

Blank is assumed. 

To avoid the message the next time 
this job is run, leave columns 56-57 
blank. 


RG522—ALL THREE RESULTING INDICATORS ARE 
THE SAME 


Code: W—Warning 

Specification Type: C 

Explanation: Usually the same indicator is 
used for only one or two of the 
conditions. 

System Action: The indicator specified will be 
set on each time the calculation is 
executed. 

User Response: Make sure the proper resulting 


indicator entries have been made 
in columns 54—59. If the entries 
were incorrect, resubmit the job. 


RG523—A NEGATIVE FACTOR FOR THE SQUARE 
ROOT OPERATION IS NOT ALLOWED 


Code: T—Terminal 

Specification Type: C 

Explanation: The entry specified in Factor 2 of 
a SQRT operation is negative. 

System Action: The job is terminated. 


Make the entry in Factor 2 of a 
SQRT operation a positive value. 
Resubmit the job. 


User Response: 


RG5S24—WHOLE ARRAYS ARE NOT ALLOWED AS 
FACTOR 1 WITH DISPLAY OR CHAIN OP CODE 


Code: T—Terminal 
Specification Type: C 
Explanation: The entry in Factor 1 of a DSPLY 


or CHAIN operation cannot be a 
whole array. 

The job is terminated. 

Enter the array name and index in 
Factor 1 of a DSPLY or CHAIN 
operation. Resubmit the job. 


System Action: 
User Response: 


RG525—OPERATION CODE IS INVALID FOR DEVICE 
TYPE OR MODE OF PROCESSING 


Code: T—Terminal 
Specification Type: C 
Explanation: The CHAIN operation can only be 


specified for disk files processed 
randomly. 

The job is terminated. 

Make sure that CHAIN is only 
specified for disk files. processed 
randomly. 


System Action: 
User Response: 


RG540—FILE TYPE ENTRY IS U ORC FORA 
CONSOLE, ASSUME I 


Code: W—Warning 

Specification Type: F 

Explanation: Neither an update nor a combined 
file can be assigned to the console. 

System Action: The file is assumed to be an input 


file. 

If this assumption was wrong, make 
the proper entry in column 15 and 
resubmit the job. 


User Response: 


RG541—FILE DESIGNATION IS INVALID FOR 
ADDROUT FILE, ASSUME R 


Code: T—Terminal 
Specification Type:  F 
Explanation: The file designation entry in col- 


umn 16 is not R for an ADDROUT 
file. 

The job is terminated. 

Enter an R in column 16 for the 
ADDROUT file and resubmit the 
job. 


System Action: 
User Response: 


RG543—LENGTH OF KEY COL 29-30, OR LENGTH OF 
KEY AND KEY START LOCATION GREATER THAN 
RECORD LENGTH 


Code: T—Terminal 
Specification Type:  F 
Explanation: The key field entry in columns 


29-30 must be less than 29 charac- 
ters and must be less than the 
record length. The sum of the key 
field starting location plus the key 
length must not exceed the record 
length. 

Key field length of 03 is assumed; 
key field starting location of O1 is 
assumed. The job is terminated. 
Make the proper key field length 
(columns 29-30) and key field 
starting location (columns 35-38) 
entries. Resubmit the job. 


System Action: 


User Response: 
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RG544—LENGTH OF RA OR KEY FIELD, COLS 29—30 
BLANK OR INVALID, ASSUME 03 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F 

Columns 29-30 are blank or the 
entry specified is invalid for files 
that contain limits or for ADDROUT 
files. 

03 is assumed; the job is terminated. 
Make the entry in columns 29-30 

a number from 1 to 29 for files that 
contain limits and for ADDROUT 
files. Resubmit the job. 


RG548—FILE ADDITION IS INVALID FOR FILE OR 
DEVICE, ASSUME BLANK 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F,O 

File addition (A in column 66) can 
be specified for sequential and in- 
dexed output files on disk only. 
The job is terminated. 

Make the proper file addition entry 
in column 66 and resubmit the job. 


RG549—KEY FIELD START LOCATION IS BLANK OR 


EXCEEDS RECORD LENGTH 

Code: T—Terminal 

Specification Type: F 

Explanation: Columns 35-38 are blank or the 


System Action: 
User Response: 


entry specified exceeds the record 
length in your file description 
specifications. 

The job is terminated. 

Make the key field starting location 
entry (1-4096) in columns 35-38 
equal to or less than the record 
length. Resubmit the job. 


RG550—NO MORE THAN 20 FILE DESCRIPTION 


SPECS ALLOWED 
Code: 
Specification Type: 


Explanation: 


System Action: 
User Response: 
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T-—Terminal 

F 

More than 20 file description lines 
were specified. 

The job is terminated. 

Specify a maximuim of 20 file de- 
scription lines per program. Re- 
submit the job. 


RG551—RECORD LENGTH MISSING OR INVALID 
FOR DISK FILE, ASSUME 256 


Code: T—Terminal 

Specification Type: F 

Explanation: The record length entry in columns 
24-27 is missing. 

System Action: The job is terminated. 

User Response: Make the proper record length 


entry in columns 24-27; it can be 
a number from 1 to 4096. Resub- 
mit the job. 


RG552—FACTOR 1 AND RESULT FIELD MUST NOT 
BOTH BE BLANK WITH DSPLY OP CODE 


Code: T-—Terminal 

Specification Type: C 

Explanation: Both the Result Field and Factor 1 
were left blank on a DSPLY opera- 
tion. 

System Action: The job is terminated. 

User Response: Make the proper entry under 


Factor 1 or the Result Field for 
the DSPLY operation and resubmit 
the job. 


RG553—CORE INDEX IS INVALID FOR DEVICE 


TYPE OR MODE OF PROCESSING 

Code: T—Terminal 

Specification Type: F 

Explanation: Core index can be specified in col- 


umns 60-65 for indexed disk files 
processed randomly. 


System Action: Blank is assumed; the job is 
terminated. 

User Response: Make the proper core index entry 
in columns 60-65 and resubmit 
the job. 


RG554—ADD SPECIFIED ON THE FILE 
DESCRIPTION SPEC BUT ADD NOT REFERENCED 
ON OUTPUT 


Code: T-Terminal 
Specification Type: Not applicable 
Explanation: Column 66 contains an A, but 


record addition ADD in columns 
16-18 is not specified in your out- 
put specifications. 

System Action: The job is terminated. 

User Response: Place ADD in columns 16-18 of 
your output specifications when 
A is specified in column 66 of file 
description. Resubmit the job. 


RG555—NO ADD SPECIFIED ON FILE DESCRIPTION 


Code: T—Terminal 
Specification Type: | Not applicable 
Explanation: ADD is specified in columns 16-18 


of your output specifications, but 
the add function was not specified 
in file description specifications 


(column 66) for this file. 
System Action: The job is terminated. 
User Response: Place A in column 66 of your file 


description specifications when 
ADD is specified in columns 16-18 
of the output specifications. Re- 
submit the job. 


RG557—MASK FOR BIT OPERATION IS NOT 0-7 


Code: T—Terminal 

Specification Type: C 

Explanation: The mask specified for the bit opera- 
tion is not 0-7. 

System Action: The job is terminated. 

User Response: Specify bits 0-7 as the mask for 
the bit operation and resubmit the 
job. 


RGS58—INVALID USE OF RESULTING INDICATORS 
WITH THIS OP CODE. ASSUME INVALID RESULTING 
INDICATORS BLANK 


Code: W—Warning 
Specification Type: C 
Explanation: Columns 56-59 must be blank for 


the CHAIN operation; columns 
54-57 must be blank for the 


READ operation. 
System Action: Blank is assumed. 
User Response: To avoid this message the next 


time this job is run, leave columns 
56-59 blank for the CHAIN opera- 
tion, or leave columns 54-57 blank 
for the READ operation. 


RG560—MODE OF PROCESSING (COL 28) GIVEN 
BUT NOT ALLOWED, ASSUME BLANK 


Code: T—Terminal 

Specification Type: F 

Explanation: The mode of processing entry 
specified in column 28 is invalid. 

System Action: The job is terminated. 

User Response: An entry is allowed only for limits 


or random processing of disk files. 
Place the proper entry in column 
66 and resubmit the job. 


RG561—KEY FIELD START LOCATION (COLS 35-38) 
GIVEN BUT NOT ALLOWED, ASSUME BLANK 


Code: T—Terminal 

Specification Type: F 

Explanation: The key field start location entry 
specified in columns 35-38 is in- 
valid. 

System Action: The job is terminated. 

User Response: Place the proper entry in columns 


35-38 of file description specifica- 
tions for indexed files only. Re- 
submit the job. 
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RG562—FILE TYPE FOR FROM FILENAME AND/OR 
TO FILENAME INVALID WITH TABLE/ARRAY 


Code: T—Terminal 
Specification Type: | Not applicable 
Explanation: The From Filename and/or the 


To Filename specified is invalid. 
The job is terminated. 

Make sure the From Filename speci- 
fied in columns 11-18 of extension 
specifications is an input file and 
that the To Filename in columns 
19-26 is an output file. Resubmit 
the job. 


System Action: 
User Response: 


RGS65—COLUMN 31 INVALID FOR DEVICE TYPE 


Code: T—Terminal 

Specification Type:  F 

Explanation: The entry in column 31 is valid for 
update, chained output (or 
ADDROUT) disk files only. 

System Action: The job is terminated. 


User Response: Leave column 31 blank or change 
the file type entry. Resubmit the 


job. 


RG5S66—INVALID USE OF DEVICE AS FROM 
FILENAME 


Code: T—Terminal 
Specification Type: E 
Explanation: The file named in columns 11-18 


of extension specifications is not 
assigned to the disk, MFCU, or 
console 


Tha inh ia tarmi 
ane jOo iS terminated. 


A rtinn 


System ACTION: 
User Response: Place the proper From Filename 
entry in columns 11-18 and re- 


submit the job. 


354 


RGS67—TABLE RECORD SIZE GREATER THAN FROM 
FILENAME DEVICE RECORD SIZE 


Code: T-—Terminal 
Specification Type: E 
Explanation: Table or array record length speci- 


fied exceeds the maximum record 
allowed for the device. 

The job is terminated. 

Make the table or array record 
length equal to or less than the 
maximum record length for the 
device. Resubmit the job. 


System Action: 
User Response: 


RG568—LENGTH OF KEY FIELD OR RA LENGTH 
COLS 29-30 GIVEN BUT NOW ALLOWED, ASSUME 
BLANK 


Code: T-—Terminal 
Specification Type:  F 
Explanation: Length of key field or RA length 


specified in columns 29-30 is in- 
valid for this file type. 

The job is terminated. 

Leave columns 29-30 blank, and 
resubmit the job. 


System Action: 
User Response: 


RG569—ENTRY OF I COL 32 NOT GIVEN FOR AN 
INDEXED FILE, ASSUME I 


Code: T—Terminal 

Specification Type: F 

Explanation: The entry specified in column 32 
for an indexed file is not I. 

System Action: I is assumed, the job is terminated. 


Enter I in column 32 for an indexed 
file and resubmit the job. 


User Response: 


RG570—LOOK AHEAD WITH NUMERIC SEQUENCE 
OR LOOK AHEAD FOLLOWS A NUMERIC RECORD 


Code: T—Terminal 
Specification Type: I 
Explanation: A look ahead record type (** in 


columns 19-20) cannot be specified 
on the same line as a numeric se- 
quence entry in columns 15-16. 
The job is terminated. 

Specify look ahead record types 
(** in columns 19-20) on the 

same line with an alphabetic entry 
in columns 15-16. Resubmit the 
job. 


System Action: 
User Response: 


RGS71—MORE THAN ONE LOOK AHEAD RECORD 


IN A FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

I 

Look ahead is specified more than 
once for this file. 

The job is terminated. 

Make only one look ahead specifi- 
cation for a file. Resubmit the 
job. 


RG572—LOOK AHEAD CANNOT BE THE ONLY 


RECORD IN A FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

I 

Look ahead records specified do 
not follow other file or record 
type specifications. 

The job is terminated. 

Specify look ahead records follow- 
ing other file or record type speci- 
fications. Resubmit the job. 


RG573—MULTI RA FILES DEFINED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F 

More than one record address file 
is defined in this program. 

The job is terminated. 

Specify only one record address 


file per program. Resubmit the job. 


RGS74—EXTERNAL INDICATOR COLS 71-72 NOT 


THE SAME AS RA FILES 

Code: T~Terminal 

Specification Type: F 

Explanation: The record address file and the file 


System Action: 
User Response: 


it is used to process are not con- 
ditioned by the same external in- 
dicator. 

The job is terminated. 

When external indicators are used, 
specify the same external indicator 
for both the record address file and 
the file it is used to process. Re 
submit the job. 


RG575—NO INPUT SPECIFICATIONS FOUND FOR 


THIS FILE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

Not applicable 

Input specifications required for 
this file, but none were supplied. 
The job is terminated. 

Supply input specifications for all 
input files (except record address 
and tables) and for update files. 
Resubmit the job. 


RGS76—COMPILE TIME TABLE DATA FOUND. 
COMPILE TIME TABLE OR ARRAY NOT SPECIFIED 


IN EXTENSION 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


W—Warning 

E 

No extension specifications were 
supplied for compile time table. 
Table data is not processed. 
Supply the proper extension speci- 
fications and resubmit the job. 


RG577—ONLY ONE FILE ASSOCIATED WITH RA FILE 


IS ALLOWED IN A PROGRAM 

Code: T—Terminal 

Specification Type: F,E 

Explanation: More than one record address file 


System Action: 
User Response: 


or more than one file associated 
with a record address file is defined 
in this program. 

The job is terminated. 

Specify only one record address 
file per program or associate only 
one file with a record address file. 


RG578—RA FILE OR A FILE ASSOCIATED WITH RA 
FILE IS REQUIRED BUT NOT DEFINED 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

F 

A record address file or a file asso- 
ciated with the RA file is required 
for this job, but was not defined. 
The job is terminated. 

Supply the proper record address 
file or file associated with an RA 
file. Resubmit the job. 
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RG579—FIRST 1P LINE NOT FOR PRINTER, ASSUME 
COL 41 IN CONTROL CARD BLANK 


Code: W—Warning 
Specification Type: O 
Explanation: Forms alignment is requested but 


the first 1P line is not specified for 
a printer file. 

Column 41 of the control card 
specifications is assumed to be 
blank; therefore, no forms align- 
ment is done. 

For forms alignment, specify the 
first 1P line for a printer file. 


System Action: 


User Response: 


RG580—REFERENCED A MATCH LEVEL WHICH IS 
NOT VALID, OR DEFINED A LEVEL MORE THAN 
ONCE 


Code: T—Terminal 
Specification Type: I 
Explanation: Either an invalid match level is 


used or a match level is defined 
more than once. 

The job is terminated. 

Be sure that each record group con- 
tains the same match levels, and 
that each match level is defined 
only once. Resubmit the job. 


System Action: 
User Response: 


RGS581—MISSING OR INVALID AN/OR ENTRY IN 
COL 7-8 


Code: T-—Terminal 
Specification Type: C 
Explanation: An AN/OR entry in columns 7-8 


is missing or the entry specified is 
not AN or OR. 

The job is terminated. 

Make the proper AN/OR entry in 
column 7-8 and resubmit the job. 


System Action: 
User Response: 
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RG582—THE RELATIVE RECORD NUMBER FOR THE 
CHAIN OPERATION MUST BE NUMERIC WITH 0 
DECIMAL 


Code: W-—Warning 
Specification Type: C 
Explanation: The relative record number speci- 


fied for a CHAIN operation is not 
a numeric field with zero decimal 
positions. 

The decimal positions are ignored. 
To avoid this message the next time 
this job is run, make the relative 
record number for a CHAIN opera- 
tion a numeric field with zero dec- 
imal positions. 


System Action: 
User Response: 


RG583—BINARY LENGTH SPECIFIED GREATER 
THAN 9, ASSUME 9 


Code: T—Terminal 
Specification Type: I 
Explanation: The binary length specified is 


greater than 9. 

The job is terminated. 

Make the binary length entry 9 or 
less and resubmit the job. 


System Action: 
User Response: 


RGS84—THIS MATCH LEVEL WAS REFERENCED 
PREVIOUSLY IN THIS RECORD GROUP 


Code: T-—Terminal 
Specification Type: I 
Explanation: A match level was referenced more 


than once within one record group. 
The job is terminated. 

Be sure that each match level is 
referenced only once within a 
record group. Resubmit the job. 


System Action: 
User Response: 


RG5S85—DISPLAY, CHAIN, OR DEMAND FILE 
SPECIFIED, BUT APPROPRIATE OPERATION CODE 
NOT FOUND IN CALCULATION SPECIFICATIONS 


Code: T—Terminal 
Specification Type: C 
Explanation: Display, chain, or demand files are 


specified but the appropriate opera- 
tion codes are not specified in cal- 
culation specifications. 

The job is terminated. 

Specify the appropriate operation 
code and resubmit the job. 


System Action: 
User Response: 


RG586—MORE THAN ALLOWABLE TABLE/ARRAY 


NAMES USED IN THE PROGRAM 

Code: T—Terminal 

Specification Type: E 

Explanation: More than 60 table and/or array 


names defined in this program. 
The job is terminated. 

Make the number of table and/or 
array names used in a program 60 
or less. Resubmit the job. 


System Action: 
User Response: 


RG587—IF FACTOR 1 OR FACTOR 2 IS A WHOLE 
ARRAY, RESULT FIELD MUST BE WHOLE ARRAY 


Code: T-—Terminal 
Specification Type: C 
Explanation: The entry in Factor 1 or Factor 2 


is a whole array, but the Result Field 
does not refer to a whole array. 

The job is terminated. 

When the entry in Factor 1 or 
Factor 2 is a whole array, place an 
array name in the Result Field. 
Resubmit the job. 


System Action: 
User Response: 


RG588—TESTB, BITON, AND BITOF MAY NOT 
REFERENCE AN ENTIRE ARRAY 


Code: T-—Terminal 

Specification Type: C 

Explanation: An entire array must not be ref- 
erenced in a TESTB, BITON, or 
BITOF operation. 

System Action: The job is terminated. 


User Response: When using arrays with TESTB, 
BITON, or BITOF operations, 
specify array elements not the 


whole array. Resubmit the job. 


RG589—RESULT FIELD MUST BE A ONE-POSITION 
ALPHAMERIC FIELD. IF FACTOR 2 IS A FIELD 
NAME, IT MUST BE A ONE-POSITION ALPHAMERIC 
FIELD 


Code: T—Terminal 
Specification Type: C 
Explanation: The Result Field is not a one-byte 


alphameric field for TESTB, 
BITON, and BITOF, or Factor 2 

is a field name but is not a one-byte 
alphameric entry. 

The job is terminated. 

Make the Result Field a one-byte 
alphameric field for TESTB, 
BITON, or BITOF. If Factor 2 
contains a field name, make it a 
one-byte alphameric field. Resubmit 
the job. 


System Action: 
User Response: 


RGS90—WHENEVER HIGH IS USED IN A MOVE ZONE 
OPERATION, IT MUST REFERENCE AN ALPHAMERIC 
FIELD 


Code: T—Terminal 
Specification Type: C 
Explanation: The high portion of a move zone 


instruction does not reference an 
alphameric field. 

The job is terminated. 

Make the high portion of a move 
zone instruction reference an alpha- 
meric field and resubmit the job. 


System Action: 
User Response: 


RGS591—LENGTH OF FIELD IN FACTOR 1 NOT EQUAL 
TO KEY LENGTH OF FILE SPECIFIED IN FACTOR 2 


Code: T-—Terminal 
Specification Type: C 
Explanation: The length of the field in Factor 1 


of a CHAIN operation is not equal 
to the key field length specified in 
Factor 2. 

The job is terminated. 

For a CHAIN operation, make the 
length of the chaining field (Factor 
1) equal to the length of the key 
field (Factor 2). Resubmit the job. 


System Action: 
User Response: 
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RG592—FOR SEQUENTIALLY PROCESSED UPDATE 
FILE—T ENTRY IN COL 15 IS INVALID OR LO-L9 
INDICATOR USED WITH E IN COL 15 


Code: T—Terminal 

Specification Type: O 

Explanation: Total output cannot be specified 
for update files processed sequen- 
tially. 

System Action: The job is terminated. 

User Response: Remove the T or E entry from 


column 15 and resubmit the job. 


RG593—TABLE/ARRAY NAME MISSING FOR ‘TO’ 


AND/OR ‘FROM’ FILENAME 

Code: W—Warning 

Specification Type: E 

Explanation: No table name was specified in col- 


umns 27-32 for a table load opera- 
tion (From Filename in columns 
11-18) or for a table output opera- 
tion (To Filename in columns 19- 


26). 
System Action: No action taken. 
User Response: To avoid the message when this job 


is run again, specify the proper 
table name in columns 27-32. 


RG594—TO FILENAME MAY NOT BE USED WITH 
EXECUTION TIME TABLE/ARRAY 


Code: T—Terminal 
Specification Type: E 
Explanation: An array output operation (To 


Filename in columns 19-26) must 
not be specified for execution time 


arrays. 
System Action: The job is terminated. 
User Response: Remove the To Filename entry in 


columns 19-26 for execution time 
arrays. Resubmit the job. 
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RGS95—COLS 27-32 AND 46-51 MUST BE BOTH 
TABLE OR BOTH ARRAY NAMES 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T-—Terminal 

E 

For alternating tables, columns 
27-32 and 46-51 do not both con- 
tain table names; or columns 27-32 
and 46-51 do not both contain 
array names for alternating arrays. 
The job is terminated. 

For alternating tables or arrays, 
specify either table names or array 
names in both columns 27-32 and 
46-51. Resubmit the job. 


RG596—INDICATORS MAY NOT BE USED WITH *PLACE 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

O 

*PLACE is conditioned automati- 
cally by the same indicators which 
condition the line or lines to be 
repeated. 

The job is terminated. 

Remove the conditioning indicators 
from the *PLACE statement and 
resubmit the job. 


RG597—END POSITION SPECIFIED FOR *PLACE 
LESS THAN TWICE THAT OF HIGHEST PREVIOUSLY 
SPECIFIED FIELD END POSITION 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

O 

The end position specified for 
*PLACE is lower than end position 
specified for the preceding field. 
The job is terminated. 

Make the proper end position entry 
for *PLACE, and resubmit the job. 


RGS98—ALPHA TABLE/ARRAY SPECIFIED AS 


PACKED, ASSUME NUMERIC 

Code: T-—Terminal 

Specification Type: E 

Explanation: An alphameric table or array was 
specified as packed. 

System Action: The job is terminated. 


Ou. 2 he alin 4 ew nen 2 
OPCULLY LILY LaVIC Ul aliay as 


numeric, and resubmit the job. 


RG599—LENGTH OF ELEMENT FOR BINARY TABLE/ 
ARRAY NOT SPECIFIED AS 4 OR 9, DEFAULT TO 4 
IF LENGTH SPECIFIED IS LESS THAN 4, OTHERWISE 
DEFAULT TO 9 


Code: T—Terminal 
Specification Type:  E 


The binary length was not specified 


Exnlanation: neth ot 


esses vase 


as 4 or 9. 

System Action: The job is terminated. 

User Response: Make the proper binary length 
entry and resubmit the job. 


RG621—TRAILER RECORD OVERLAPS HEADER 
RECORD 


Code: T-Terminal 
Specification Type: _I 
Explanation: The trailer field overlaps the header 


field in a spread card. 

The job is terminated. 

Make the first trailer field start 
after the last position in the header 
field. Resubmit the job. 


System Action: 
User Response: 


RG622—NO TRAILER FIELDS FOR SPREAD CARD 


Code: T-—Terminal 

Specification Type: I 

Explanation: No trailer fields are specified for 
the spread card. 

System Action: The job is terminated. 


Make the proper trailer field entries 
for the spread card (TR in columns 
19-20). Resubmit the job. 


User Response: 


RG623—ENTRIES IN COLUMNS 7-18 AND 21-74 
INVALID FOR TR SPECIFICATION, ASSUME NO TR 


Code: T—Terminal 
Specification Type: _I 
Explanation: Entries specified in columns 7-18 


and 21-74 of a TR line. 

Columns 19-20 are assumed blank; 
no spread cards are accepted. The 
job is terminated. 

If spread cards are to be used, leave 
columns 7-18 and 21-74 blank for 
the TR line (TR in columns 19-20). 
Resubmit the job. 


System Action: 


User Response: 


RG624—TR SPECIFICATION OUT OF ORDER 


Code: T—Terminal 
Specification Type: I 
Explanation: The TR specification line is not 


preceded by a definition of a 
header record. 

The job is terminated. 

Place the TR specification line im- 
mediately after a definition of a 
header record. Resubmit the job. 


System Action: 
User Response: 


RG625—FACTOR 1 MUST BE NUMERIC FOR CHAIN 
OPERATION WHEN FACTOR 2 FILENAME HAS 
PACKED KEYS 


Code: T—Terminal 
Specification Type: C 
Explanation: The entry specified in Factor 1 of 


a CHAIN operation is not numeric 
even though the file named in 
Factor 2 has packed keys. 

The job is terminated. 

Make the entry in Factor 1 of a 
CHAIN operation numeric when 
the file named in Factor 2 has 
packed keys. Resubmit the job. 


System Action: 
User Response: 


RG626—MORE THAN 255 TR SPECIFICATIONS 
GIVEN 


Code: T—Terminal 
Specification Type: _I 
Explanation: More than 255 valid TR lines are 


specified in this program. 

The job is terminated. 

Make the number of valid TR lines 
in this program 255 or less. Re- 
submit the job. 


System Action: 
User Response: 


RG628—INVALID FILE TYPE FOR SPREAD CARD 


Code: T—Terminal 

Specification Type: I 

Explanation: The file containing spread cards is 
not a card input file designated as 
primary or secondary. 

System Action: The job is terminated. 


User Response: Make sure the file containing spread 
cards is a card input file designated 
as primary or secondary. Resubmit 


the job. 
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RG631—FACTOR 1 MUST HAVE SAME LENGTH 
WHEN PACKED AS LENGTH OF PACKED KEYS FOR 


FACTOR 2 FILENAME 

Code: T—Terminal 

Specification Type: C 

Explanation: The entry in Factor 1 of a CHAIN 


System Action: 
User Response: 


operation is not the same length 
when packed as the record keys in 
the file named in Factor 2. 

The job is terminated. 

Make sure the entry in Factor 1 of 
a CHAIN operation is the same 
length when packed as the record 
key in file named in Factor 2. Re- 
submit the job. 


RG634—STERLING INVALID FOR SPREAD CARD 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 


T—Terminal 

I 

Sterling cannot be specified for 
spread card. 

The job is terminated. 

Remove the sterling specification 
and resubmit the job. 


RG635—NUMERIC SEQUENCE CHECKING SPECIFIED 


FOR A SPREAD RECORD, BUT N NOT SPECIFIED FOR 
NUMBER, ASSUME N 


Code: 
Specification Type: 
Explanation: 


System Action: 
User Response: 
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W—Warning 

I 

An N entry was not made in col- 
umn 17 even though sequence 
checking was specified (numeric 
entry in columns 15-16). 

N is assumed. 

To avoid this message when this 
job is run again, enter N in column 
17. 


RG799—ERROR FILE FULL 


Code: W—Warning 

Specification Type: Not applicable 

Explanation: Too many errors were made in this 
program. 

System Action: No action taken. 

User Response: To avoid this message when this 


job is run again, correct the errors 
already diagnosed in this program. 


RG999—PROGRAM EXCEEDS CORE IN COL 12-14 OF 
HEADER CARD 


Code: W—Warning 
Specification Type: H 
Explanation: The program requires more core 


storage for execution than specified 
in columns 12-14 of the control 
card specifications. 

System Action: No action taken. 

User Response: To avoid this message when this 
job is run again, make the proper 
entry in columns 12-14. 


RPG II permits the use of special input/output devices. 


This is done by providing a link to a user-written routine 


hat narfaneme data trancfar far the enari 
that PerrOimnis Gdtd tfafisier LUT wie speci 


cannot be transferred from one user assembler subroutine 


to another. 


The following file description specifications apply to files 
on SPECIAL devices (asterisks denote special entries for 


this feature; see Figure G-1). 


Columns 


7-14 


15 


16 


17 


18 


19 


20-23 


24-27 


28-31 


32 


33-39 


*40-46 


Entry 

Valid RPG II filename. 
I, O, U, or C. 

P, S, D, or blank. 
Blank or E, 

Blank, A, or D. 

RF. 

Block length. 

Record length. 


Must be blank. 


Blank or 1-9 (dual I/O areas are allowed). 


Must be blank. 


The word SPECIAL. 


TAawinra Canteen 
ai G€ViCe. CONTIOi 


Appendix G. Special Device Support 


Columns Entry 


~ 


47-53 Must be blan 


*54-59 SUBRxx; x can be any alphabetic character 
(this is the name of the user-written routine 


that performs data transfer). 


60-70 Must be blank. 
71-72 Blank or U1-U8. 
73-74 Must be blank. 
The following can be used with SPECIAL files: 


FORCE operation code. 
READ operation code. 
File translation. 
*PLACE on output. 


The following cannot be used with SPECIAL files: 


CHAIN operation code. 

Stacker select. 

Spacing and skipping. 

*PRINT. 

*(asterisk) in column 40 on Output-Format Sheet 
to print constants on cards. 


Care must be taken when using Dual Programming Feature 
with a special device. If SPECIAL for the same device is 
used in both levels, it is the programmer’s responsibility to 
see that the device is ready. 


SPECIAL files can only be processed consecutively. 
The JBM System/3 Disk System Basic Assembler Program 
Reference Manual, SC21-7509, describes the operation codes 


passed to data management and the completion codes 
passed back by data management. 
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Figure G-1, File Description Entries for Special Device Support 
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Linkage from RPG II to an Assembler language subroutine 
is accomplished through the EXIT and RLABL RPG II 
operations. Control cannot be transferred from one user 
assembler subroutine to another user assembler subroutine. 
All EXIT and SPECIAL subroutines will be a part of the 
root segment and will not be put into overlays. Information 
on coding assembler subroutines for EXIT and RLABL is 
contained in JBM System/3 Disk System Basic Assembler 
Program Reference Manual, SC21-7509. 


EXIT Operation 


The EXIT operation code is used to designate a point in 
the RPG II calculation specifications at which control is to 
be passed to a previously assembled, external subroutine. 
The rules for use of the EXIT operation in RPG II calcula- 
tion specifications are as follows: 


1. Operation EXIT. 
2.‘ Factor 1 blank. 


3. Factor 2 contains the name of the subroutine to 
which control is to be passed. The name must con- 
sist of 5 or 6 characters, the first 4 of which are 
SUBR. The remaining characters must be alphabetic 
(subroutine names containing numeric characters are 
reserved for IBM-written subroutines). 


4. — Result Field blank. 

5. Resulting Indicators blank. 

The EXIT operation can be conditioned by Control Level 
entries (columns 7-8) and Indicator entries (columns 9-17). 


If not conditioned by control level entries, the EXIT oper- 
ation occurs at detail calculation time. 


Appendix H. EXIT and RLABL Operations 


RLABL Specification 


Through the RLABL operation, a field, table, or array 
defined in the RPG II program can be referenced by the 
subroutine to which the EXIT operation gives control. The 
rules for use of RLABL in RPG II calculation specifications 
are as follows: 


1. Operation RLABL. 
a Result Field contains field, table, or array name. 


3. Field Length contains the length of the field 
(optional). 


4, Decimal Positions contains the decimal indication 
(optional). 


The RLABL specifications must immediately follow the 
EXIT specifications for the subroutine which references 
the RPG II field. A name defined by a TAG, BEGSR, or 
ENDSR specification cannot be used in an RLABL speci- 
fication. 


Referencing Indicators 


An assembler subroutine may reference indicators in the 
RPG II program to which it is linked. This is done by 
entering INxx in the Result Field of an RLABL specifica- 
tion. The xx represents the indicator to be referenced. 
For example, if MR is to be tested, INMR must be entered 
in the Result Field of the RLABL specification. 


Coding Examples 


Figure H-1 shows an example of the linkage when the sub- 
routine refers to a field, table, or array defined in the RPG 
II program. Figure H-2 shows an example of the linkage 
when the subroutine references indicators defined in the 
RPG II program. 


EXIT and RLABL Operations 363 





IBM international Business Machines Corporation Form X21-9083 
7 


RPG CALCULATION SPECIFICATIONS ee ees 

















1 2 75 76 77 78 79 80 
instruction identification 
Program Punch 
Programmer 





| Arithmetic —_| 


Factor 1 Operation 


Decimal Positions 


Form Type 
(LO-L9, LR, SR) 
Half Adjust (H) 


Controt Level 


eee eee Me 2) Aedes 
EDT eae DTS eT ya 











Field, Table, or Array Name 


Figure H-1. Field, Table, or Array Entry 
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This appendix contains a brief column-by-column descrip- 
tion of each of the RPG II specification sheets. It is intended 
as a quick reference by programmers who are acquainted 
with RPG II for the IBM System/3 Disk System. For a 
complete description of each entry, refer to the applicable 
section of this manual. For a complete description of 
telecommunications entries see JBM System/3 RPG II 
Telecommunication Programming Reference Manual, 
SC21-7507. 


INFORMATION COMN.ON TO ALL FORMS 

RPG II source cards should be in ascending numeric 
sequence by columns 1 through 5. Cards that are out of 
sequence are flagged. Adjacent cards with duplicate 
sequence numbers are not flagged. 


Columns 1-2 (Page) 


Arrange the specifications sheets in the following order and 
number them in ascending sequence: 


1. Control Card and File Description. 
2. Extension and Line Counter. 

3. | Telecommunications. 

4. Input. 

5. Calculation. 


6. Output-Format. 


Columns 3-5 (Line) 


The first two digits of the line number are pre-printed. Use 
the unnumbered lines on the sheet for additional specifica- 
tions or, along with column 5, to insert a line between two 
other completed lines. For example, line 025 would be in- 
serted between lines 02 and 03. 


Column 6 (Form Type) 
This column contains a pre-printed code (H, F, E, L, T, I, 


C, or 0) which must be punched into all RPG II specifica- 
tions cards. 
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Column 7 (Comments) 

Enter an asterisk in each line used as a comment line. The 
control card specification line (line 01) cannot be used as a 
comment line. 

Columns 75-80 (Program Identification) 

Insert any valid characters in columns 75-80 of the control 
card to identify the program. This name is used in a pro- 
gram directory which contains the location of your program 
on disk. If these columns are left blank, RPGOBJ is assumed. 


Columns 75-80 on all other specifications cards can contain 
any entries. 


CONTROL CARD SPECIFICATIONS 


Columns 7-9 (Core Size to Compile) 


Leave these positions blank. 


Column 10 (Object Output) 


Entry Object Program is: 

Blank — Written temporarily in object library. 
D — Written temporarily in object library. 
C — Written permanently in object library. 
P — Punched into cards. 


Column 11 (Listing Options) 


Leave this position blank. 
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Columns 12-14 (Core Size to Execute) 


Column 12 
Blank,O — No additional 256-byte increments are 
needed. 
Q _ One additional 256-byte increment is 
needed. 
H — Two additional 256-byte increments 
are needed. 
T — Three additional 256-byte increments 
are needed. 
Columns 13-14 
Blank _ Core size available for execution is 


same as core size used for compilation. 


01-61 _ Core size available for execution if 
different from core size used for com- 
pilation. Entry is the number of K 
(1K=1,024 bytes) available. 


Column 15 (Debug) 


Blank -— DEBUG operation not used. 
i — DEBUG operation used. 
Column 16 


Leave this position blank. 


Column 17 (Input Shillings) 


Blank — Sterling not used. 
1 — IBM format. 
2 — BSI format. 


Column 18 (Input Pence) 


Blank — Sterling not used. 
1 — IBM format. 
2 — BSI format. 


Column 19 (Output Shillings) 


Blank — Sterling not used. 

0 —  Qutput shilling field is printed only. 
1 — IBM format. 

2 — BSI format. 


Column 20 (Output Pence) 


Blank — Sterling not used. 

0 — Output pence field is printed only. 
i — IBM format. 

2 — BSI format. 


Column 21 (inverted Print) 


Blank — Domestic format. 
I — World Trade format. 
J — World Trade format (leading zero 
remains for zero balances). 
D — United Kingdom format. 
Columns 22-25 


Leave these positions blank. 


Column 26 (Alternate Collating Sequence) 


Blank — Normal collating sequence used. 
S — Alternate collating sequence used. 
Columns 27-36 


Leave these positions blank. 


Column 37 (inquiry) 


Blank — Program not interruptable. 
B — Program recognizes inquiry requests. 
I — Inquiry program. 


Columns 38-40 


Leave these positions blank. 


Coiumn 41 (1P Forms Position) 


Blank — First 1P line printed only once. 
1 — First 1P line can be printed repeatedly 
to allow forms positioning. 
Column 42 
Leave this position blank. 


Column 43 (File Translation) 


Blank — No file translation needed. 


F — Input, output, update, or combined 


files are to be translated. 
Column 44 (Punch MFCU Zeros) 
Blank — 


Leading zeros are removed. 


1 — Leading zeros are used (applies to 


MFCU only). 


Column 45 (Nonprint Characters) 


Blank Program halts if an unprintable char- 
acter is encountered. 
1 — No halt for unprintable character. 
Columns 46-47 


Leave these positions blank. 


Column 48 (Shared 1/O) 
Blank — All disk files use a separate input/output area. 


1 — All disk files share a single input/output area. 


Columns 49-74 


Leave these positions blank. 


FILE DESCRIPTION SPECIFICATIONS 


Columns 7-14 (Filename) 


Enter a name for each file. The filename can be from one 
to eight characters long, must begin in column 7, and must 
be a valid RPG II name (see Definition of Terms in Chapter 


1). 


Column 15 (File Type) 


I — Input 

O — Output 

U — Update 

C — Combined 
D — Display 


Column 16 (File Designation) 


P — Primary 

S — Secondary 

C — Chained 

R — Record Address 
T — Table or Array 
D — Demand 


Leave blank for display files and all output files except 
chained output files. 


Column 17 (End of File) 


E — All records from the file must be pro- 
cessed before the program can end. 
Blank — The program can end whether or not 


all records from this file have been 
processed. 


If column 17 is blank or £ for all files, all records from 
every file must be processed before the program can end. 
An E can only be specified here if column 15 contains J, U, 
or C and column 16 contains a P, S, or R. 
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Coiumn 18 (Sequence) 
Blank ~ No sequence checking is to be done. 


A — Sequence checking is done. Records 
are in ascending sequence. 


D — Sequence checking is done. Records 
are in descending sequence. 


Sequence checking is required when matching fields are 
used. Column 18 applies to update and combined files and 
all input files except table, array, chained, demand, and 
record address files. 


Column 19 (File Format) 


F must be entered. 


Columns 20-23 (Block Length) 
Disk: 1-4096 (multiple of record length) 
MFCU: 1-96 
Printer/Keyboard: 1-125 


Printer: 1-96, 1-120, or 1-132 (depending on number of 
print positions) 


Tape: 18-4096 (multiple of record length plus the size 
of the buffer offset) 


Block length entry for files other than disk or tape must 
be equal to record length. 
Columns 24-27 (Record Length) 

Disk: 1-4096 

MFCU: 1-96 

Printer/Keyboard: 1-125 


Printer: 1-96, 1-120, or 1-132 (depending on number of 
print positions) 


Tape: 18-4096 (equal to or less than block length) 
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Column 28 (Mode of Processing) 
Blank — 1. Sequential by key. 


2: Consecutive. 


L — Sequential within limits. 
R — 1. Random by relative record 
number. 


2. Random by key. 
3. By ADDROUT file. 
4. Direct file load (random load). 
This column must be blank for non-disk files. 
Columns 29-30 (Length of Key field or Record Address 
Field) 
Indexed file: Length of record key. 


Record Address File Containing Limits: Length of 
record key. 


ADDROUT File: Length of record (always 3). 


Maximum length of a record key is 29 characters. 


Column 31 (Record Address Type) 


A — Indexed file. 

P — Indexed file with packed keys. 

I —  ADDROUT file or processed by 
ADDROUT file. 

Blank — Sequential or direct file. 


Column 31 applies to disk files specified as input, update, 
or chained output files. 


Column 32 (File Organization of Additional |/O Area) 


I — Indexed organization. 

T — ADDROUT file. 

1-9 — Sequential or direct file, use two I/O 
areas for the file. 

Blank — Sequential or direct file, use one I/O 


area for the file. 


Columns 33-34 (Overflow Indicator) 


OA-O0G,OV— —_ Overflow indicator used to condition 
records in the file. 
Blank _ No overflow indicator is used. 


Columns 35-38 (Key Field Starting Location) 


For indexed files, enter the beginning position of the key 
field in the record. 


Column 39 (Extension Code) 


E _ The file described on this line is a 
table file, array file, or record address 
file further described on extension 
specifications. 

L = The file described on this line is a 


printer file further described on line 
counter specifications. 
Columns 40-46 (Device) 


Enter the device code for the input/output unit used by the 
file specified in columns 7-14, as follows: 


Input/Output Unit Device Code 
IBM 5424 Multi-Function Card MFCU1 (Primary 
Unit Hopper) 
MFCU2 (Secondary 
Hopper) 
IBM 5203 Printer PRINTER 


IBM 5203 Printer (Dual PRINTER (Left 


Carriage) Carriage) 
PRINTR2 (Right 
Carriage) 

IBM 5471 Printer Keyboard CONSOLE 

IBM 5444 Disk Storage Drive DISK 

IBM 5445 Disk Storage Drive DISK45 

IBM 3410 Magnetic Tape Unit TAPE 

Binary Synchronous 

Communications Adapter BSCA 

Device not supported by 

RPG II SPECIAL 

Columns 47-52 


Leave these positions blank. 


Column 53 


Labels 


Leave this position blank unless using continuation lines. 
Continuation Lines 


K — Continuation record specified for tape. 


Columns 54-59 


Name of Label Exit 


Blank — No SPECIAL device used. 


SUBRxx — Name of the user-written subroutine 
which will perform the I/O operation 
for a SPECIAL device. 


Continuation Line Option 


ASCII — ASCII tape file specified. 


BUFOFF -— _ Tape input file contains a block 
prefix (used only if ASCII file 
specified). 
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| Columns 60-65 


Core Index 
6-9999 — Number of bytes reserved for core 
index. 
Blank — No core index will be built. 


Continuation Line Entry 


0-99 — Length of the block prefix in an 


ASCII tape input file that specifies 
BUFOFF. 


Column 66 (File Addition/Unordered) 
A = 


Records are to be loaded into an 
indexed file in unordered sequence. 


U —_ 


This column applies to sequential and indexed disk files. 


Column 67 


Leave this position blank. 


Columns 68-69 (Number of Extents) 


Blank = Single volume file. 

1&n Nhimbhae nf ualimand that rantain tha 

1*JU — INULTIUUL UL VULULIIVDS Lilatl VUE tail 
file. 


For consecutive processing, if any volumes are off-line 
during processing, then all volumes must be on removable 
packs. For sequential or random processing, all volumes 
must be on line. 


Column 70 (Tape Rewind) 


R — Rewind tape at end of file 
U — Unload tape at end of file 
N — Leave tape at end of file 
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New records will be added to the file. 


Columns 71-72 (File Condition U1-U8) 


U1-U8 — File is conditioned by the specified 
external indicator. 
Blank = File is not conditioned by an external 


indicator. 


These columns apply to output files and primary and 
secondary input (except table or array input files), update, 
and combined files. A record address file may be condi- 
tioned by an external indicator if its associated primary or 
secondary file is conditioned either by the same indicator 
or by no indicator. 


Columns 73-74 


Leave these positions blank. 
EXTENSION SPECIFICATIONS 


Columns 7-10 


Leave these positions blank. 


Columns 11-18 (From Filename) 


Enter, left justified, the name of the table or array input 
file loaded at pre-execution time or the name of the record 
address file defined on the File Description Sheet. 


Columns 19-26 (To Filename) 


If the file named in n Filename i : 
enter the name of the primary or secondary input or update 
file containing the data records to be processed. If From 
Filename is a table or array file, enter the name of the out- 
put file to which the table or array is written at end of job. 
Leave this entry blank if the table or array is not written 
out. 


Columns 27-32 (Table or Array Name) 


Enter the name of a table or array used in the program. If 
alternating tables or arrays are described, enter the name of 
the table or array whose entry is first on the input record. 
Entries are left-justified and must be valid RPG II names 
(see Definition of Terms in Chapter 1). Table names must 
begin with TAB; array names must not begin with TAB. 


Columns 33-35 (Number of Entries Per Record) 


Enter, right-justified, the number of entries on each table or 
array input record. These columns must contain an entry 
for compile and pre-execution time tables and arrays. These 
columns must be blank for execution time arrays. 


Columns 36-39 (Number of Entries Per Table or Array) 


Enter, right-justified, the maximum number of entries in 
the table or array named in columns 27-32. For alternating 
tables or arrays, corresponding items are considered one 
entry. 


Columns 40-42 (Length of Entry) 


Enter, right-justified, the length of each table or array entry. 
The maximum length is 256 for alphameric entries and 15 
for numeric entries. For packed or binary tables and arrays, 
enter the number of bytes of storage required to represent 
the data in unpacked format. 


Column 43 (Packed or Binary Field) 


Blank ~  Alphameric or unpacked numeric data. 
P — Packed numeric data. 
B — Binary numeric data. 


Column 44 (Decimal Positions) 
Blank —  Alphameric table or array. 


Number of positions to the right of the 
decimal. 


0-9 — 


Column 45 (Sequence) 


Blank — No particular sequence. 
A — Ascending sequence. 
D ~ Descending sequence. 


This column describes the sequence of data in a table or 
array. Column 45 must contain an entry if high or low 
look-up is to be used. 


Columns 46-57 

Use these columns when describing a second table or array 

entered in alternating format with the table or array named 
in columns 27-32. These entries have the same significance 
as the corresponding entries in columns 27-45. 


Columns 58-74 (Comments} 


Enter any information you wish to help you understand or 
remember what you are doing in each specification line. 


LINE COUNTER SPECIFICATIONS 


Columns 7-14 (Filename) 


Enter the name of a printer file for which you wish to 
specify a form size and overflow line. 


Columns 15-17 (Line Number - Number of Lines Per Page) 


1-112 — Number of lines available for printing 


on the printer form. 


Columns 18-19 (Form Length) 


Enter FL to indicate the previous entry is the form length. 


Columns 20-22 (Line Number - Overflow Line) 


1-112 _ Number of the overflow line. 


Columns 23-24 (Overflow Line) 


Enter OL to indicate the previous entry is the overflow line. 


Columns 25-74 


Leave these positions blank. 
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| TELECOMMUNICATIONS SPECIFICATIONS Column 18 (Type of Code) 


A, U a 
Columns 7-14 (Filename) 


Enter a valid filename for every BSC file your program uses. 


E or blank — 
Column 15 (Configuration) 


ASCII data link control characters will 
be used. When ASCII is used, each 
station must provide file translation 
when it is required. 


EBCDIC data link control characters 
will be used. 


Por blank — _ Point-to-point, nonswitched network. 
Column 19 (Transparency) 
M — Multipoint network, where the control 
station selects the tributary station Y ~ 


through polling or addressing. System/3 
cannot be the control station. 


Switched network. 


1o) 
| 


N or blank — 


Column 16 (Type of Station) 


T — This station will transmit messages 
from this file (transmit only or trans- 
mit with reception of conversational 


This entry is valid only for EBCDIC. 
The transparency feature must be in- 
stalled. The data being transferred may 
contain data link control characters. 


The transparency feature is not used. 
Unpacked numeric or alphameric data 
will be transmitted and received. The 
data being transferred may not contain 
data link control characters. 


reply). The file must be designated as Column 20 (Switched) 


an output or combined file on the File 


Description Sheet and must appear on M — 


the Output-Format Sheet. 


R — This station will receive messages into E — 


this file (receive only or receive with 
transmittal of conversational reply). 


The file must be designated as an input S — 


or combined file on the File Description 
Sheet and must appear on the Input 


Sheet. 
A = 
Column 17 (Type of Control) 
B es 
T — This is a tributary station on a multi- 
point network. System/3 cannot be 
the control station and transmit the Blank = 


polling supervisory sequence. 
Blank — Polling is not used; non-tributary station. 


Column 17 must contain a T if column 15 contains an 
M (multipoint network). 
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The computer operator makes the 
connection between stations by dialing 
the number (manual dial). 


Autocall is to be used. The dial number 
is listed in columns 21-31. 


Autocall is to be used. The entry in 
columns 21-31 is the symbolic location 
of the dial number. 
Autoanswer is used by the called 
station. 


Manual answer is used by the called 
station. 


This is not a switched network. 


Columns 21-31 (Dial Number) 


Numeric — 


Alphameric — 


This is the number to be dialed when 
column 20 contains an E. 


Columns 21-31 must contain a sym- 
bolic name, other than an array name, 
referencing the location of the dial 
number when column 20 contains an S. 
If the BSC file is an input file other 
than a demand or conversational receive 
file, this name must refer to the first 


(or only) element of a table. 


Column 32 (Location of Identification—This Station) 


S — 


Blank ~ 


Switched network. This station’s 
identification is located at the position 
referenced by the symbolic name speci- 
fied in columns 33-39. 


Switched network. The entry in columns 
33-39 is this station’s identification. 


This is a nonswitched network or a 
switched network where no ID is desired 
for this station. 


Columns 33-39 (Identification—This Station) 


Alphameric — 


When column 32 contains an E, this 
entry is the actual identification 
sequence of this station (from 2 to 15 
characters). The station identification 
must not contain a control character 
sequence. 

When column 32 contains an S, this 
entry is the symbolic name of the 
location of this station’s identification. 
The symbolic name must not be an 
array name. If the BSC file is primary 
or secondary, this symbolic name 
must refer to the first element of a 
table. 


Column 40 (Location of Identification—Remote Station) 


S = 


Switched network. The remote 
station’s identification is located at the 
position referenced by the symbolic 
name specified in columns 41-47. 


Blank 


Switched network. The entry in 
columns 41-47 is the remote station’s 
identification. 


This is a nonswitched network ora 
switched network where no ID is 
desired for the remote station. 


Columns 41-47 (Identification—Remote Station) 


Alphameric — 


When column 40 contains an E, this 
entry is the actual identification 
sequence of the remote station (from 
2 to 15 characters). A station identifi- 
cation must not contain a control 
character sequence. 

When column 32 contains an S, this 
entry is the symbolic name of the 
location of the remote station’s 
identification. The symbolic name 
must not be an array name. If the 
BSC file is primary or secondary, 

this symbolic name must refer to the 
first element of a table. 


Columns 48-51 (Remote Terminal) 


Blank — 


2770 ~ 


2771 — 


2171 ~~ 


2773 — 


2774 ~ 


2780 — 


Column 52 (ITB) 


J = 


System/3 is not used to communicate 
with the IBM 2770 Data Communi- 
cation System or the IBM 2780 Data 
Transmission Terminal. 


The remote terminal is an IBM 2770. 
If System/3 is transmitting, the out- 
put channel on the IBM 2770 is, 

by default, output channel 1. 


The remote terminal is an IBM 2770, 
output channel 1. 


The remote terminal is an IBM 2770, 
output channel 2. 


The remote terminal is an IBM 2770, 
output channel 3. 


The remote terminal is an IBM 2770, 
output channel 4. 


The remote terminal is an IBM 2780. 


Intermediate block check (ITB) is used. 
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Columns 53-54 (Permanent Error Indicator) 


01-99, L1-L9 
LR, H1-H9 


— A permanent error indicator should be 


used with every BSC file. If you are 
using more than one BSC file, each 


should have a permanent error indicator. 


BSC input/output operations must be 
conditioned on all permanent error 
indicators being off. 


Columns 55-57 (Wait Time) 


Numeric — 


Blank — 


The length of time in seconds, 1-999, 
that BSC will wait with no messages 
being sent or received before a per- 
manent error condition occurs. 


The system convention for timeout, 
180 seconds, is used. 


Columns 58-59 (Record Available Indicator) 


01-99,L1-L9, — Arecord available indicator is used 


LR, H1-H9 


only when System/3 transmits inter- 
spersed with receive (no conversational 
reply) to System/360-System/370. The 
record available indicator is set on 
when System/360-System/370 wishes 
to transmit to System/3. 


Column 60 (Last File) 


L = 


Blank = 


This BSC input file is processed only 
after all other primary and secondary 


Sexeneet Filnw bnew han nen rancon A 
AULpUl LHGS Have VOUT PrOUTesseu,. 


This BSC input file does not have to be 
the last input file processed. 


Columns 61-62 (Polling Characters) 


Alphameric — 


mre eae 
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The polling identification of this 
station is needed if this station is part 
of a multipoint network and the BSC 
is a receive (input) file. 


Thic ctatinn ic nat recaivina an a multi- 
M244 YJREECAW AL 42 448s SN WAN Se ABS AAA O64 244048 OA 


point network. 


Columns 65-70 (Remote Device) 


Blank 


1442-1 


1442-2 


0545-3 


0545-4 


2213-1 


2213-2 


2502-1 


2502-2 


5496-1 


5496-2 


System/3 is not used to communicate 
with the IBM 2770 Data Communi- 
cation System or the IBM 2780 Data 
Transmission Terminal. 


The IBM 1442 Card Read Punch (card 
read) is a remote device used with the 
IBM 2780 remote terminal. 


The IBM 1442 Card Read Punch 
(card punch) is a remote device used 
with the IBM 2780 remote terminal. 


The IBM 1443 Printer is a remote de- 
vice used with the IBM 2780 remote 
terminal. 


The IBM 0545 Card Punch, Model 3, 
is a remote device used with the 
IBM 2770 remote terminal. 


The IBM 0545 Card Punch, Model 4, 
is a remote device used with the 
IBM 2770 remote terminal. 


The IBM 2213 Printer, Model 1, is a 
remote device used with the IBM 2770 
remote terminal. 


The IBM 2213 Printer, Model 2, isa 
remote device used with the IBM 2770 
remote terminal. 


The IBM 2502 Card Reader, Model 1, 
is a remote device used with the 

IBM 2770 remote terminal. 

The IBM 2502 Card Reader, Model 2, 
is a remote device used with the 

IBM 2770 remote terminal. 


The 5496 Data Recorder (card read) is 
a remote device used with the IBM 
2770 remote terminal. 


The 5496 Data Recorder (card punch) 
is a remote device used with the IBM 
2770 remote terminal. 


INPUT SPECIFICATIONS 


Columns 7-14 (Filename) 


Enter a valid RPG II filename for every input, update, and 
combined file your program uses. 


Columns 15-16 (Sequence) 


Enter a 2-digit number to assign a special sequence to record 
types in a file and to request that the record type sequence 
be checked by the program. Enter two alphabetic characters 
to indicate that record type sequence is not checked. Alpha- 
betic characters must be used for a chained file. Within a 
file, record types with an alphabetic sequence entry must 

be described before record types with a numeric sequence 
entry. 


Column 17 (Number) 

Blank — Columns 15-16 contain alphabetic 
characters (record type sequence is not 
being checked). 


Columns 15-16 contain numeric char- 
acters; only one record of this type is 
present in each sequenced group. 


Columns 15-16 contain numeric char- 
acters; one or more records of this 
type can be present in the sequenced 


group. 


Column 18 (Option) 


Blank — Record type must be present. 


O — Optional. Record type may or may 


not be present. 


Column 18 is used when record types are being sequence 
checked (columns 15-16 contain numeric characters). 


Columns 19-20 (Record Identifying Indicator, **) 


01-99 — Record identifying indicator. 

L1-L9 — Control level indicator used as a record 
identifying indicator when record type 
rather than control field signals start 
of a new control group. 

LR — Last record indicator. 

H1-H9 — Halt indicator used as a record identi- 
fying indicator when checking for a 
record type that causes an error condi- 
tion. 

= — Look-ahead fields. 

TR — Spread card. 


Columns 21-41 (Record Identification Codes) 
This field is divided into three identical subfields: 
Columns 21-27 
Columns 28-34 
Columns 35-41 


An AND relationship exists between these three fields. 


Position 
Blank —  Norecord identification code is needed. 
1-4096 — Record position of the record identifi- 
cation code. 
Not 
Blank —  Ejther the record identification code 
is present in the specified record 
position, or no record identification 
code is needed. 
N — Record identification is being used, 


but the identification code is not 
present in the specified record position. 
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C — Entire character. 
Z — Zone portion of character. 
D — Digit portion of character. 


Remember that many characters have either the same zone 
or the same digit portion. 


AND and OR Relationships 


Enter AND in columns 14-16 on the next line of the Input 
Sheet if more than three record identification code subfields 
are needed to identify the record. Enter OR in columns 
14-15 if either one of the codes may be present to identify 
the record. A maximum of 20 AND or OR lines in any 
combination may be used to describe the record identifying 
code. 


Column 42 (Stacker Select) 


Blank — Cards automatically fall into a pre- 
determined stacker. 
1-4 — Stacker into which the card type is 


stacked. 


Only cards from input files and combined files can be 
stacker selected on input. If this column is blank, cards 
from the primary MFCU hopper are placed in stacker 1 and 
cards from the secondary hopper are placed in stacker 4. 


Column 43 (Packed or Binary Field) 


Blank — Input field in unpacked decimal format. 
P — Input field in packed decimal format. 
B — Input field in binary format. 


Columns 44-51 (Field Location) 
Enter two 1-4 digit numbers to identify the beginning of a 


field (From) and the end of a field (To) in the input record. 
These entries are identical for a 1-position field. 
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Column 52 (Decimal Position) 
Blank —  Alphameric field. 


0-9 — The number of decimal positions in the 


numeric field named in columns 53-58. 


This column must contain an entry for numeric fields. 


Columns 53-58 (Field Name) 
These columns can contain: 


e A valid RPG II field name (see Definition of Terms in 
Chapter 1) for each field defined in Field Location. 


e@ An array name or array element. 


e@ PAGE, PAGE], or PAGE2 special words. 


Columns 59-60 (Control Level) 


Li-L9 _ Field described on this line is a control 
field. 
Blank ~ Field described is not a control field. 


These columns must be blank for chained or demand files. 


Columns 61-62 (Matching Fields) 


Enter a matching level identifier (M1-M9) to indicate match- 
ing fields and sequence checking when you have two or more 
input, update, or combined files with match fields. When 
you have just one input, update, or combined file with match 
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Columns 63-64 (Field Record Relation) 


01-99 — Record identifying indicator assigned 
to a record type. 

L1-L9 — Control level indicator previously used. 

MR — Matching record indicator. 

U1-U8 — External indicator previously set. 

H1-H9 — Halt indicator previously used. 


The following general rules apply to this entry: 


1. All fields without field record relation should be 
specified before fields with field record relation. 


2. All fields with the same field record relation entry 
should be entered on consecutive lines. 


3. All parts of a split control fieid must have the same 
field record relation entry and must be described on 
consecutive specification lines. 


Columns 65-70 (Field Indicators) 


01-99 — Field indicator. 


H1-H9 — Halt indicator (when checking for an 
error condition in the data). 


An indicator used in these columns is turned on if the 
condition tested for is true. For numeric fields, more than 
one condition may be tested at a time, but only the indicator 
which reflects the result of the test is turned on, the others 
are turned off. Ifa field is alphameric, an indicator can 

only be specified in Zero or Blank (columns 69-70). 


Columns 71-74 (Sterling Sign Position) 


Blank — Sterling input not being used. 

1-4096 — Number of the column which contains 
the sign if the sign is not in normal 
position. 

S (Col. 74) — _—_ Sign in normal position. 


CALCULATION SPECIFICATIONS 


Columns 7-8 (Control Level) 


Blank — Operation done at detail time. 

LO — Calculation is performed at total time 
(always on). 

L1-L9 — Calculation operation is done when the 
appropriate control break occurs or an 
indicator is set on. 

LR — Calculation operation is done after the 
last record has been processed or after 
LR has been set on. 

SR — Calculation operation is part of a sub- 


routine. 


AN or OR can be entered in these columns to indicate that 
indicators on the line are in an AND or OR relationship 

with indicators on the preceding line. A maximum of seven 
AN, OR, or mixed AN and OR lines are allowed to condition 
an operation. Entries must be in the order listed. 


Columns 9-17 (Indicators) 

Enter one to three indicators. Any indicators except 1P and 
LO can be used. Columns 9, 12, and 15 may contain blank 
or VN. An AND relationship exists between indicators on a 
line. Additional lines may be used containing indicators in 
columns 9-17 which are in an AND or OR relationship with 
those on the first line by entering AN or OR in columns 
7-8. 

Columns 18-27 (Factor 1) and Columns 33-42 Factor 2 
Factor 1 and Factor 2 may contain the following entries: 

1. Name of any field that has been defined. 

2. | Alphameric or numeric literal. 


3. Subroutine, table or array name, or array element. 


4. Date field name (UDATE, UMONTH, UDAY, 
UYEAR). 
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5. Special name, PAGE, PAGE], or PAGE2. 


> 


6. Label for a TAG, BEGSR, or ENDSR operation 
(Factor 1) or a label for a GOTO or EXSR operation 
(Factor 2). 


7. Filename for a CHAIN, DEBUG, DSPLY, READ, or 
FORCE operation (Factor 2). 


Columns 28-32 (Operation) 


Enter an operation code, left justified. 


Columns 43-48 (Result Field) 


Enter the name of the field, table, array, or array element 
that holds the result of the operation specified in columns 


28-32. If the field named in Result Field has not been defined 


in extension, input, or previous calculation specifications, 
it must be defined by making entries in columns 49-52. 
Columns 49-51 (Field Length) 

Blank — Field defined elsewhere. 
1-256 — Result field length. 
Maximum length of a numeric field is 15 digits; maximum 


length of an alphameric field is 256 characters. Entry must 
be right justified. 


Column 52 (Decimal Position) 


Blank —  Alphameric field or numeric field 
described elsewhere. 
0-9 ~ Number of decimal places in a numeric 


result field. 


Column 53 (Half Adjust) 
Blank —  Donot half adjust the Result Field. 
H — Half adjust the Result Field. 


Half adjust is allowed only with arithmetic operations. 
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Columns 54-59 (Resulting Indicators) 


Enter any of the following indicators: 01-99, H1-H9, L1- 
L9, LR, OA-OG, and OV. Columns 54-59 are used for four 
purposes: 


1. To test the value of the result field after an arithmetic 
operation. 


bo 


To check the outcome of a CHAIN, LOKUP, COMP, 
TESTB, or TESTZ operation. 


3. To specify which indicators to SETON or SETOF. 


4. To indicate end of file for the READ operation code. 


Arithmetic Operations: Enter up to three indicators to be 
turned on whenever the result is positive (indicator in col- 
umns 54-55), negative (indicator in columns 56-57), or zero 
(indicator in columns 58-59). 


Compare Operations: Enter up to three indicators to be 
turned on whenever Factor 1 is greater than Factor 2 
(indicator in columns 54-55), Factor 1 is less than Factor 2 
(indicator in columns 56-57), or Factor 1 is equal to Factor 
2 (indicator in columns 58-59). 


LOKUP Operation: Enter one or two indicators in High, 
Low, Equal, High and Equal, or Low and Equal. If there is 
an entry in the High or Low columns, the table name in 
Factor 2 must be specified as ascending or descending on 
the Extension Sheet. 


TESTB Operation: Resulting indicators have the following 
meaning for this operation: 


@ Columns 54-55: An indicator in these columns is turned 
on if each bit specified in Factor 2 is off in the Result 
Field. 


@ Columns 56-57: An indicator in these columns is turned 
on if two or more bits were tested and of mixed status 
(some bits on and some bits off). 


@ Columns 58-59: An indicator in these columns is turned 
on if each bit specified in Factor 2 is on in the Result 
Field. 


TESTZ Operation: Enter one to three indicators to reflect 
the zone of the leftmost character in the Result Field, as 
follows: 


® Columns 54-55: Turned on by the zone portion of the 
characters & and A-I. 


® Columns 56-57: Turned on by the zone portion of the 


characters } (bracket), — (minus), and J-R. 
@ Columns 58-59: Turned on by the zone portion of any 
character not listed above. 


CHAIN Operation: Enter an indicator (optional) in columns 
54-55 to be turned on in the case of a record-not-found 
condition. 


SETON and SETOF Operations: Enter up to three indica- 
tors in columns 54-59 to be turned on (SETON) or turned 
off (SETOF). 


READ Operation: Enter an indicator in columns 58-59 to 
be turned on after each read operation if an end-of-file 
condition is reached. Once end-of-file is reached, a halt 
occurs after each read operation if no indicator is entered. 


Columns 60-74 (Comments) 
Enter any meaningful information you wish to help you 


understand or remember what you are doing in each speci- 
fication line. 


OUTPUT-FORMAT SPECIFICATIONS 


Columns 7-14 (Filename) 

Enter a valid RPG II filename for each output, combined, 
and update file used by your program. Each filename need 
be specified only once, on the first line describing that file. 


Columns 14-16 (AND/OR Relationship) 


Enter AND in columns 14-16 or OR in columns 14-15 if 
output records are in an AND or OR relationship. 


Column 15 (Type) 


H — Heading records. 
D _ Detail records. 

T — Total records. 

E — Extension records. 


Columns 16-18 (Add a Record) 


Enter ADD in these columns if records are added to an input, 
update, or output disk file. An A must also be coded in 
column 66 of the File Description sheet for the file to which 
a record is added. 


Column 16 (Stacker Select/Fetch Overflow) 


Blank — Cards automatically fall into certain 
stackers (primary hopper-stacker 1, 
secondary hopper-stacker 4). 

1-4 ~ Indicates the stacker you wish. 

F — Fetch overflow. 


Only combined or output files can be stacker selected on 
Output specifications. Stacker selection on output over- 
rides stacker selection on input. 


If F is entered, the overflow routine is fetched when over- 
flow occurs, before the usual time in the cycle. 

Columns 17-22 (Space/Skip) 

If these columns are blank, single spacing occurs after each 
line is printed. Spacing and skipping are not allowed on the 
printer/keyboard. 

Columns 17-18 (Space) 

Enter a number (0-3) under the appropriate column to indi- 


cate the number of lines spaced before or after a line is 
printed. 
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Columns 19-22 (Skip) 


Blank _ No skipping. 
01-99 — Lines 1-99, 
AO-A9 — Lines 100-109. 
BO-B2 — Lines 110-112. 


Enter one of the 2-digit numbers listed above to indicate 


the next line printed. All line numbers between are bypassed. 


Enter the number in the Before or After columns, depending 
on whether you want skipping to occur before or after the 
line is printed. 


Columns 23-31 (Output Indicators) 


Enter one to three indicators. Any indicator may be used. 
Columns 23, 26, and 29 may contain blank or N. N pre- 
ceding an indicator means the output operation will be done 
only if the indicator is not on. An AND relationship exists 
between indicators on a line. Additional lines of indicators 
in an AND or OR relationship may be used by entering AND 
in columns 14-16 or OR in columns 14-15 of each additional 
line (up to 20). 


Columns 32-37 (Field Name) 
Enter one of the following to name every field written out: 
e Any field name previously defined in this program. 


@ The special words, PAGE, PAGE1, PAGE2, *PLACE, 
*PRINT, UDATE, UDAY, UMONTH, and UYEAR. 


e@ A previously defined table name, array name, or array 
element. 


These columns must be blank if a constant is entered on 


columns 45-70 of the line. If an entry is made under Field 
Name, columns 7-22 must be blank. 
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Column 38 (Edit Codes) 
Enter an edit code in column 38 when you want to: 
1. Suppress leading zeros for a numeric field. 


2. Omit a sign from the low order position of a numeric 
field. 


3.  Punctuate a numeric field without setting up your own 
edit word. 


A table summarizing the edit codes that can be used is 
printed above columns 45-70 on the Output-Format Sheet. 


Column 39 (Blank After) 


B — Field is reset to blank or zero after 
writing. 
Blank — Field is not reset after writing. 


Numeric fields are set to zero and alphameric fields are set 
to blanks. This column must be blank for look-ahead and 
update fields. If the field name specified with Blank After 
is a table name, the element of the table looked up last will 
be blanked or zeroed. 


Column 40-43 (End Position in Output Record) 

Columns 40-43 indicate the location on the output record 
of the field or constant written. Enter the number of the 
position occupied by the right-most character of the output 
field. The End Position entry must not be greater than the 
record length. 


Printing on Cards 


If you want to print fields on cards in other than the posi- 
tions which correspond to the punch positions, you must: 


1. Name the field in cblumns 32-37. 
2. Place an * (asterisk) in column 40. 


3. Specify an end position for that field in columns 40- 
43. The maximum end position entry is 128. 


Column 44 (Packed or Binary Field) 


Blank — Field is unpacked numeric or alpha- 
meric data. 

P — Field is packed decimal numeric data. 

B — Field is in binary format. 


Packed and binary fields can be written on disk, but should 
not be printed and cannot be punched. Column 44 must be 
blank with *PLACE fields, *PRINT fields, and asterisk in 
column 40. 


Columns 45-70 (Constant or Edit Word) 


Constant: The following rules apply to constants: 
1. Field Name (columns 32-37) must be blank. 


2. Aconstant must be enclosed in apostrophes. Enter 
the leading apostrophe in column 45. 


3. An apostrophe in a constant must be represented by 
two apostrophes. 


4. Up to 24 characters of constant information can be 
placed in one line. Additional lines may be used, but 


each line must be treated as a separate line of constants. 


The end position of each line must appear in columns 
40-43. 


Edit Word: Enter any edit word to specify editing of num- 
eric fields. Edit words must be enclosed by apostrophes. 
Constants are allowed within edit words. 


Edit words are not used with edit codes. However, when 
edit codes 1-4, A-D, and J-M are used, columns 45-47 may 
contain an * (to denote asterisk fill) or a $ (to denote a 
floating dollar sign). 


Columns 71-74 (Sterling Sign Position) 
Enter in these columns the position in the record that con- 


tains the sign of the sterling field. If the sign is in the nor- 
mal position, enter S in column 74. 
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CORE SAVING TECHNIQUES 


When your program is too large to fit into the execution 
core size, you may want to use some core saving techniques 
to help reduce the program size. Before you can use these 
techniques effectively, however, you need to understand 

(1) how the RPG II Compiler creates overlays to make a 
program fit into the core available for execution and (2) how 
the compiler determines when a program is too large to fit 
into the core available for execution. This section will dis- 
cuss the overlay process and then give you some suggestions 
for saving core. 


Overlay Process 


When your program exceeds the available storage for pro- 
gram execution, the RPG II compiler places some RPG II 
object program routines on disk. These routines are then 
called into main storage as they are needed by your pro- 
gram. This is known as the overlay process. 


When the overlay process is used, main storage is divided 
into two main parts: the Root segment and the Overlay 
area. 


The Root segment contains constants and data used more 
than once during program execution. For this reason, the 
Root segment always remains in main storage. The Root 
segment may be used by routines in the Overlay area. The 
Root segment can call a routine in the Overlay area by using 
a branch instruction. 


The main Overlay area contains the major routines of the 
RPG II object program. Routines in this area may be called 
by the Root segment or by other routines in the same main 
overlay. 


Some large programs require that storage be divided into 
two additional parts: the Secondary Root segment and the 
Suboverlay area. The Secondary Root segment is used to 


supplement the Root segment. If the Root segment and 
the Overlay area fill main storage, the Secondary Root seg- 
ment is not created. The Suboverlay area, created by the 
RPG II compiler, contains subroutines and other RPG II 
code needed to support a routine in the main Overlay area. 
Figure J-1 shows the location of the main storage areas. 
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Figure J-1. RPG II Storage Map 


Creating the Overlays 


In order to create overlays, the compiler must first deter- 
mine which routines will go into the main Overlay areas 
and which routines will go into the Suboverlay areas. Then 
it calculates the size of the largest main Overlay and the 
size of the largest Suboverlay. These sizes are rounded off 
upwards in increments of 256 bytes (1 sector). The com- 
piler then adds the lengths of the Root segment, the largest 
main Overlay, and the largest Suboverlay. If the sum is 
larger than the available storage, your program is too large, 
and core saving techniques must be used if the program is 
to be run. 


Special Open/Close 
Special Open/Close is used when the overlay requirements 


for Open and Close exceed the overlay requirements for the 
rest of the program. 


Special Open/Close can be easily identified because overlay 
#$$002 is the first overlay identified in the core usage map 
(see Figure J2). 
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The first load will bring in the Root, the Overlay Fetch 
Routine, the Overlay Fetch Area, and a special transfer 
vector to call the Open overlay. Open is completely self- 
contained and does not need any of the non-overlay code. 
When Open is complete, Overlay 1 is loaded. Overlay 1 
consists of all code that is identified as non-overlay and was 
not loaded during the first load. The program then executes 
as a normal overlay program until Close is needed. At this 
time, Close is brought into core starting at the Overlay 
Fetch Area and using as much core as is needed. 


The Overlay Fetch Area size for the rest of the program can 
be found by subtracting the start of the Overlay Fetch Area 
from the lowest start address of the non-overlay code that 
was not included in the first load. For example, if Input 
Mainline starts at 1762, 1762 minus 1462 equals x’300’— 
the Overlay Fetch Area size. 


Saving Core 


When the compiler finds that your program is too large, an 
error message is written. You can reduce the storage needed 
for your program either by using some general core saving 
techniques or by reducing the size of the overlays. 


General Core Saving Techniques 
Some of the techniques you can use are: 


1. Divide your program into separate tasks, creating a 
separate program for each task. For example, suppose 
you want to update a file and print a listing of the 
updated file. You can save main storage by updating 
the file with one program and printing the listing with 
another program. 


2. Eliminate unreferenced fields. These unreferenced 
fields are identified on the RPG II listing. By elimin- 
ating these fields, you can eliminate the storage area 
that is required to hold the data and the instructions 
that store the data in them. 


3. Eliminate unreferenced indicators. Eliminating un- 


referenced indicators can eliminate the instructions 
required to set the indicators on and off. 
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Eliminate unnecessary conditioning indicators. Two 
possible forms of unnecessary indicator tests are: 


a. If only one type of input record is to be pro- 
cessed, the indicator associated with that record 
will always be on except during the first detail 
output time. It is, therefore, not necessary for 
any calculation to be conditioned with this 
indicator. 


b. | When two subsequent operations on the same 
result field are conditioned on opposite indica- 
tor conditions, one of the conditions is not 
necessary. For instance, the NO9 conditioning 
is not required in this example: 


NO9 Z-ADD FLD  FLDB 
09 Z-ADD FLDC FLDB 


Note: This technique may not work for cer- 
tain operations if the same field is used as the 
result field and as factor 1 or factor 2. 


Reuse calculation work areas and temporary hold 
areas. Once the data stored in these areas is used for 
the last time in a given cycle, the area is available. 
Reusing these areas can eliminate the need for two or 
more additional areas to be defined. 


Note: Be sure you do not mix alphameric and nu- 
meric fields. 


Reuse input field name areas. In some instances, two 
or more input files may have fields that always con- 
tain identical information. These fields can be given 
the same field name in order to use the same core 
storage area. 


Another way to reuse input field areas is to use the 
same names for fields in two files. This can be done 
only if both fields have the same attributes (length, 
alphameric/numeric, packed binary) and each field is 
only used in the cycle in which the record is processed. 
Both files cannot be used during the same cycle. 


Reduce calculation work area sizes. Be sure that no 
work area has been defined as larger than it needs to 
be. This may cause a warning that the result field may 
not be large enough, but if you know that the largest 
possible number will fit into the areas specified, you 
may continue. 


10. 


11. 


£2, 


Include the necessary intervening blanks when describ- 
ing alphameric fields and constants for output. This 
will make the fields adjacent. The output optimiza- 
tion phase will move all adjacent fields and constants 
with one instruction instead of using one instruction 
to move each line. 


Not Optimized Optimized 


5 ‘DAILY’ 18 DAILY TRANSACTIOND’ 


17 ‘TRANSACTION’ 26 ‘REGISTER’ 


26 ‘REGISTER’ 


Design files to contain record lengths that are an even 
multiple of 256 bytes or that will divide into 256 
bytes an even number of times. 


Design files so that match fields and control fields are 
assigned the same position within all record types. 


Do not designate a field as numeric unless the field is 
to be used in a numeric operation in the program. 
This can save on the amount of storage required to 
store the field and can allow the input and output 
fields transfer routine to be optimized. 


Use only one type of file organization in a program 
(indexed, direct, or sequential). Also, use the same 
method of processing where possible. This can reduce 
the disk data management core requirements. Some 
unit record data management can also be eliminated 
by transferring unit record files to disk. 


13. 


14, 


15. 


16. 


17. 


18. 


19. 


20. 


21. 


22. 


Use the shared input/output access method (SIAM) 
to process disk files. This will reduce the storage 
required even on programs with only one disk file. 


Note: Using SIAM may decrease program throughput. 


Group calculation statements together that are con- 
ditioned by the same indicators. When a large num- 
ber of indicators are required, try to use GOTO or 
EXSR to reduce the number of indicator tests re- 


quired on each statement. 


When using TESTB, BITON, or BITOF, use the actual 
bit pattern in factor 2. 


Do not use half adjust unless absolutely necessary. 


Try to use either factor 1 or factor 2 as the result 
field whenever possible. 


Try to use numeric fields of the same length and with 
the same number of decimal positions. If the fields 
cannot be the same length, try to have the number of 
decimal positions the same. (see Appendix K. for an 
example.) 


Do not sequence check your records unless absolutely 
necessary. 


Use OR lines rather than multiple record lines because 
OR lines require less code. 


Specify the fields in a record in ascending order by 
record position. 


Do not use halt indicators unless absolutely necessary. 
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Reduce the Overlay Size 


To reduce the size of the overlay, you can reduce the size 
of the Root segment or the Overlay areas. First, however, 
you must identify the contents of the Root segment and the 
largest overlays in main storage. Then you can determine 

if the contents of these areas can be reduced to fit into the 
core available for execution. 


The contents of the Root segment, main Overlay area, and 
Suboverlay area can be found by using the program listing. 


Two sections of the program listing are used to determine 
the contents of the main Overlay and Suboverlay areas. 
The section shown in Figure J-3 tells the: 


1, Overlay name 
2. Number of sectors in the overlay 
3. Start address of the overlay 


The start address separates main overlays and suboverlays. 
Two start addresses appear in the Start Address column. 
The lower address (1A97) identifies a main overlay; the 
higher address (1C97) identifies a suboverlay. 


The Text Sectors column indicates the largest overlays. 
In Figure J-3, overlays 002 and 005 are the largest subover- 
lays; overlays 007 and 008 are the largest main overlays. 


Relate the name given in the Overlay Name column shown 
in Figure J-3 to the Core Usage of RPG II Code section 
shown in Figure J-4. The Name and Title columns in this 
section identify the routines or subroutines in the overlay. 
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column, a special Open/Close overlay construction has 
taken place. When this occurs, overlay 001 is not treated 
as an overlay, but remains in main storage. 


Note: If overlay 001 does not appear in the Overlay Name 


After identifying the Root segment and the largest main 
overlays and suboverlays, you can determine whether they 
contain routines that can be manipulated to reduce the over- 
lay size. The following routines can be controlled: 


1, Input Records 

2. Detail Calculations 

3. Total Calculations 

4. Detail Output 

5. Total Output 

Following are some core saving techniques that can be used 


for these routines. These techniques may not necessarily 
work for all programs. 


Input Records: One or more of the input or update files 

can be processed as a demand or chained file, using the READ 
or CHAIN operation code. With a demand or chained file, 
the instructions to read the file can be moved into the Total 
or Detail Calculations routine. 


Note: Total calculations will not be done on the first cycle. 


CORE USAGE JF RPGII CQDE 


START NAME IF CULE NAME TITLE 
ADOR OVERLAY LENGTH 
1000 0300 RGRUUT ROOT 
1300 QVOEl RGSUBS UVERLAY FETCH RQUTINE 
13E1 0400 RGSUBS UVERLAY FETCH AREA 
1638 0091 RGMAIN INPUT MAINLIVE 
Root L74C 9008 RGSUBS TRANSFER VECTOR 
L6CC Q05A RGSUBS RECURD I0 
1726 0026 RGSUBS CONTROL FIELDS 
L5EL 205A RGSUBS INPUT CTRL RIN 
‘13EL #$$002 0008 RGSUBS SUBSEG 
13E9 #88002 U145 $$MFRD MFCU READ 
1757 V06F RGMAIN INPUT FIELDS 
L7CC 9069 RGMAIN OJETAIL CALCS 
LBEA 008 RGSUBS TRANSFER VECTOR 
Root 17C6 0006 RGSUBS CONSTANTS 
18A7 0043 $$PGRI RESET RESULTING INDR 
1835 0072 $$PGAA TAG FETCH 
13EL #$8093 V169 $$PGLC LOKUP ROUTINE 
L8F5 0008 RGMAIN TOTAL OurPUT 
ar ‘ee 9024 RGMAIN LR & OVERFLUW PROCESSING 
19C1 0008 RGSUBS TRANSFER VECTOR 
1900 v090 RGSUBS OUTPUT CTRL RIN 
13E0 #5$00% 9010 RGSUBS UVERFLOW SUBSEGMENT 
13EL #3$004 vovc RGSUBS SUBSEG 
140A #$5004 OOFB $$LPKT 5203 PRINT 
149F #$$0295 0085 RGMAIN OPEN 
L6LF #$$905 90021 RGSUBS TRANSFER VECTOR 
13E1 #$$005 09D RGSUBS UUTPUT CTRL RIN 
143A #$$005 0015 RGSUBS CONSTANTS 
147E #$$005 = vu0e RGSUBS SUBSEG 
1524 #$%005 OOF $$LPRT 5205 PRINT 
L57C = #$$8006.— 021 RGMAIN CLOSE 
174C #38000 vd16 RGSUBS TRANSFER VECTOR 
13EL #$8026 vv90 RGSUBS JUTPUT CTRL RIN 
148A 4#$$006 vOF2 RGSUBS CONSTANTS 
1590 #$$0906 v084 RGSUBS LR PRUCESSING 
147E #35096 o000Cc RGSUBS SUBSEG 
1651 #$$006 OOFB $$LPRT 5203 PRINT 
02529 XRGEL6 TOTAL CORE USAGE REQUIRED TU EXECUTE 
03333 TOTAL CORE USAGE REQUIRED TJ EXECUTE WITHUUT OVERLAYS 
OVERLAY NAME RELATIVE START C/T/S” # TEXT SecTo’%S START AvvRESS 
$##001 00 od 05 Q% L3EL 
$##002 v0 vd OC 02 13E1 
$##003 00 OO OF 02 1361 
$##004 00 oO i2 v2 13E1 
$##005 vo vO 15 03 13E1 
$##006 00 OL Ol 04 1361 


TOTAL NUMBER OF LIBRARY SECTURS REQUIRED 30 


Figure J-2. RPG II Usage Map 
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Detail or Total Calculations: Use the foiiowing techniques: 


1. | Use subroutine calculations. In some instances this 
may increase, rather than decrease, the storage 
required due to the nature of the existing calculation 
routines. 


However, it may reduce the overall core storage 
requirements. 


Note: If one subroutine calls another subroutine, 
both subroutines must be in core at the same time. 


2. Eliminate exception output if possible. This will move 
the logic for those output operations to either Total 
or Detail Output routines. 


3. Eliminate read and/or chain operations by using 
matching records and processing consecutively. This 


will move the logic to Input Records routine. 


4. Move part of the detail calculation logic to total calcu- 


lations (or total calculation logic to detail calculations). 


Note: Total calculations will not be done on the first 
cycle. 


OveRLAY NAME RELATIVe START C/T/S 


$##001 00 #00 #15 
Largest $##002 0Oo0 #00 17 
Suboverays eee 00 O1 04 
S##004 0O O1 06 
bH#¥O005 0O Ob O68 
$# #006 oO )6©601-—S so 
Largest BHHO007 00 O21 10 
Overlays $# #008 oO Ol 14 


Figure J-3. Overlay Identification Area 
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Detail or Total Output: Use the following te 


1. 


# TEXT SECTORS 


iques: 


Use exception output. This will move part of the 
output logic to Detail or Total Calculation routines. 


Do some of the output at total (or detail) output 
time. This moves logic to the Total (or Detail) Out- 


put routine. 


Do not specify blank after for fields. Instead, clear 
them at the beginning of detail or total calculations. 


Ot 
04 
O1 
O1 
04 
02 
03 
03 


CO) 


Suboverlays 


START ADDRESS 


C97 
C97 
C97 
wx) 
co7 
1LA9 
1a9 
1A9 


Overlays 


START NAME IF CODE 
ADDR OVERLAY LENGTH 

1000 082C 

1971 0126 

162C 0145 

1497 0600 

2146 OOAO 

221F 002c 

21€8 0034 

1c97 #$5001 0026 

2097 00B4 

1¢97 #$$O002 0008 

1C9F #002 0088 

1027 #%$S002 0019 

1040 #b$002 0043 

1063 #$S002 002 

1DAE #$5002 0046 

Suboverlay 1DF4 #%$$002 0028 

002 LEIC 443002 0081 

1E90 #33002 0015 

LEB2 #b$002 OO7F 

1F31 #$$002 0029 

1FSA #55002 oo01c 

1F76 #$S002 O02F 

1FA5 #$$002 0015 

2248 003¢c 

2287 0016 

1097 #33003 00D4 

LA97 #SS004 0016 

2290 cool 

234é 005F 

23AD 0016 

229E 0060 

1c97 #$$005 0o0oc 

1CA3 #33005 0086 

1D28 #33005 00:19 

1D44 #33005 0043 

1087 #38005 0028 

10b2 #33005 0046 

Suboverlay 1D0Fa #3$005 0026 

1E20 #$3$008 0081 

005 1EA1 #%$005 0015 

1E66 #%$005 OO7F 

1°35 #33005 0029 

LFSE #%3005 OO1Cc 

\ LFT7A #$$005 002 

1FAQ #33005 0015 

23¢3 0OOB. 

LAC3 #$3006 0024 

23ce 0010 

LAA3 #3$006 0020 

1A97 #33006 000c 

LAE7 #33006 0000 

1AF4a #53006 0160 

1B4F #%$007 O0ls 

Overlay 1AA3 #%$007  OOAC 

007 1867 #S$007 0047 

1A97 #33007 o0o00c 

IbAE #5007 0160 

LAAS #33008 QO9A 

Overlay 1A97 #3008 000c 

008 1B4A #%$008 0160 

1830 #$S008 000D 

05066 


Figure J-4. RPG II Usage Map 


NAME 


RGRUOT 
RGSUBS 
SSMFRD 
RGSUBS 
RGMAIN 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
$S$1ISUL 
SSSRCR 
S$SSRIC 
SSSRIF 
$SSRIUVU 
$SSRLP 
$SSRMO 
$SSRPD 
$SSRRC 
SSSRRI 

SSSRTC 
$SSRBP 
$$SSRRD 
RGMAIN 
RGSUBS 
$$PGBKO0 
RGMAIN 
RGSUSBS 
RGMAIN 
RGSUSS 
RGSuUBS 
RGSUBS 
$S$1SUL 
$3SRCR 
SSSRIC 
SSSRIF 
$S$$SRIUV 
SSSRLP 
$S$SRMO 
SSSRPO 
SSSRRC 


$SSRRI 

S$SSRTC 
$S$SREP 
SSSRRD 
RGMAIN 
RGMAIN 
RGSUBS 
RGSUBS 
RGSUBS 
RGSUBS 
$SLPRT 
RGMAIN 
RGSUBS 
RGSUES 
RGSUSS 
SSLPRT 
RGMAIN 
RGSUbS 
SSLPRT 
RGSUBS 


RAF UGG 


CORE 
TITLE 


USAGE OF RPGII CODE 


ROOT 

OVERLAY FETCH RUUTINE 
MFCU READ 

OVERLAY FETCH AREA 
INPUT MAINLINE 
TRANSFER VECTOR 
RECORD 10 

CONTROL FIELDS 
INPUT CTRL RTN 

SUG SEG 

DISK I0X SeG@ VPDATE BY LIMITS 
SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUB8BR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

INPUT FIELOS 
TRANSFER VECTOR 
CONVERT TOG OECIMAL 
DETAIL CALCS 
CONSTANTS 

DETAIL OUTPUT 
TRANSFER VECTOR 
OUTPUT CTRL RTN 
SUB SEG 

DISK IDX SEQ UPDATE BY LIMITS 
SYSTEM SUBR 

SYSTEM SU6R 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SUBR 

SYSTEM SU6R 

SYSTEM SUBR 

SYSTEM SUBR 


SYSTEM SUBR 
SYSTEM SUBR 
SYSTEM SUBR 
SYSTEM SUBR 
TOTAL OUTPUT 
LR & OVERFLOW 
CONSTANTS 
OVERFLOW SUBSEGMENT 
SUB SEG 

SUBSEG 

5203 PRINT 

CLOSE 

CONSTANTS 

LR PROCESSING 
SUBSEG 

5203 PRINT 

OPEN 

SUBSEG 

5203 PRINT 

SUB SEG 


PROCESSING 


TOTAL CORE USAGE REQUIRED TO EXECUTE 


Programming Tips 389 


PERFORMANCE IMPROVEMENT TECHNIQUES 


Some relatively simple program changes may make signi- 
ficant improvements in your program’s performance. 
However, these performance techniques will not improve 
performance in all programs. Therefore, study these 
techniques and determine if you think they will improve 
your program’s performance before you use them. The 
five performance improvement techniques are: 


1. Unblock all randomly processed indexed files. Block- 
ing gains nothing since each record has its own index 
entry with the direct address of the record. 


2. Block all sequentially processed indexed files. 


3. Use the core index. For a minimum cost in main 
storage this allows the system to read the single track 
of indexes it needs rather than reading the entire 
index to look for an entry. 


4. Double buffer unit record files. 
5. Reduce or eliminate blocking of consecutive files and 
double the buffer instead. For example, instead of 


using a block of 1600 bytes with 80 byte records, 
use a block of 800 bytes and double buffer. 
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Appendix K. Bytes of Generated Code for Calculations 


This appendix contains the number of bytes of object code If the decimal position of Factor 1, Factor 2, and the 
generated for RPG II operation codes. When used in con- Result Field are all different, an ADD operation will 
junction with Appendix J, this information will help you generate 27 bytes. 
determine the amount of core that may be saved by using 
certain coding practices. However, if all the fields were defined as having the 

same number of decimal positions, the same ADD 
For example, consider this core saving technique: operation would generate only 15 bytes. 
Try to use numeric fields of the same length and with Uniformity of fields will not only save core for ADD and 
the same number of decimal positions. If the fields cannot SUB, but for most of the other arithmetic operations as 
be the same length, try to have the number of decimal well. 


positions the same. 


International Business Machines Corporation Form X21-9093 
Printed in U.S.A. 

RPG CALCULATION SPECIFICATIONS 
75 76 77 78 79 80 


Punching Graphic Program 
Identification 





Instruction Punch 








Resulting 
Indicators 


p_—Arinmeric—_] 


Factor 1 Operation Factor 2 i : 5 Comments 


Control Level 
(LO-L9, LR, SR) 


7 68 69 70 71 72 73 7: 


EE OIE n 
| fala! levirels! | | ttt 


3 
ala 
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eee ier iol Gils 
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nis 


Factor 1 Operation Factor 2 i ; Comments 








Bytes of Generated Code for Calculations 391 


The fo 
cussing bytes used by calculation operations. 


llowing abbreviations and symbols are used in dis- 


Fl — Factor 1 

F2 — Factor 2 

RF — Result Field 

Ll — Total length of Factor 1 

L2 — Total length of Factor 2 

LR — Total length of Result Field 

D1 — Number of decimal positions in Factor 1 

D2 — Number of decimal positions in Factor 2 

DR — Number of decimal positions in Result 

Field 

H/A — Half adjust 

= — equal 

# — not equal 

~ — minus 

> — greater than 

< — less than 

+ — plus 

Operation Bytes 

SETON (each indicator set on) 3 

SETOF (each indicator set off) 3 

BITON 4 

BITOF 4 

TESTB 
test bit off 10 
test bit mixed 17 
test bit on 10 
test bit off and mixed 23 
test bit off and on 23 
test bit mixed and on 23 
test bit off, mixed, and on 29 

SUB 
Fi =RF and Di = D2=DR 6 
Fl #RF and DI = D2=DR 15 
F1 #RF and D2 = DR 23 
Fl # RF and D2=DRH/A 27 
All other combinations 31 
All other combinations H/A 39 

Z-SUB 
D2 = DR 14 
D2 # DR 18 
D2#DRH/A 22 


Operation 


ADD 
Fl = RF and D1 = D2=DR 
F2 = RF and DI = D2 =DR 
Fl #F2#RF and D1 = D2=DR 
Fl = RF and D2 > DR 
F2 =RF and D1 > DR 
Fl = RF and D2 >DRH/A 
F2=RF and D1 >DRH/A 
Fl = RF and D2< DRH/A 
F2 = RF and DI <DRH/A 
D1 =D2<DR 
All other combinations 
All other combinations H/A 
Z-ADD 
D2 = DR 
D2 > DR 
D2 >DRH/A 
D2<DR 
COMP 
Fi and F2 are numeric and Di = D2 
F1 and F2 are numeric and D1 # D2 
F1 and F2 are alphameric and L1 = L2 
Fl and F2 are alphameric and 
F1 is a field 
F1 and F2 are alphameric and 
F1 is a table 
alternate collating sequence 
(add these bytes to the 
appropriate compare 
operation listed 


previously) 

TESTZ 

RF is a field 

RF is a table 
MULT 

with H/A 
DIV 

D1 -D2=DR 

D1 -D2#DR 


D1 -D2=DR+1H/A 
D1 -D2#DR+1H/A 


MVR 
D2 = DR 
D2 # DR 
XFOOT 
D2 = DR 
D2 # DR 
FORCE 
with UPSI indicator 


22 


26 
10 


20 
23 
Zi 


23 
27 
31 
35 


13 
13 
20 


Operation 


CHAIN 


with UPSI indicator 
when Factor | has a variable index 
when key is not packed 
when key is a record number 
when key is packed 


whan record-not-foun 
WAIiIVdil AUN VULEUTLIV EI vVu 


when record-not-foun 


given 


MOVE, MOVE, MHHZO, 
MHLZO, MLHZO, MLLZO_ The number of bytes speci- 
fied includes all array con- 

trol code lengths. 


Field to Field 
Array to Array 
Field to Array 
Table to Array 
Array, Tag to Array 
Array to Array, Tag 
Field to Array, Tag 
Table to Array, Tag 
Array, Tag to Table 
Field to Table 
Table to Table 
Array, Tag to Field 


Table to Field 


Vy vy 
Sit Je ie fo 7a 
eS ra J [ee ee 
DL Vv y VV Vo 
UST ws ~~) Y 2 ny »y 
NE eo /& o 
ss Ss Ss S 

yy 2 + é + x + & + 
6 26 10 6 6 6 20 
42 el 45 42 42 42 42 
29 43 32 29 29 29 29 
35 52 38 35 40 35 35 
40 | 66 | 43 | 40 | 52 | 40 | 40 
28 57 38 28 35 35 35 
17 34 27 17 17 24 24 
20 52 33 20 24 30 30 
20 46 27 20 30 24 24 
9 23 16 9 9 13 i 
15 41 22 15 19 19 19 
17 40 21 17 24 17 31 
9 29 13 9 13 9 9 


Aj 
wa 
d indicato 


Ft 


Bytes 


not 


32 


See the following table. 


Operation 


READ 


with UPSI indicator 


with EOF indicator without BSCA 
when EOF indicator not given and no 


BSCA 
when EOF indicator not given and 


RCA 
DOTA 


LOKUP 
when Factor | is a table 


when Factor 1 has a variable index 
with each resulting indicator 


20 20 
42 42 
29 29 
41 40 
52 52 
35 47 
31 24 
24 36 
24 36 

9 13 
19 25 
24 36 
13 13 


20 


42 


29 


31 


20 


20 


15 


31 


Bytes 


29 
35 
41 


47 
48 


SA 
Jt 


15 
21 
26 
27 


Bytes of Generated Code for Calculations 


393 


394 


Operation 

DSPLY 

(for factor 1) 
with variable index 
with integer index 
with alphameric field 
with numeric field 

(for result field) 
with variable index 
with integer index 
with alphameric field 
with numeric field 


Conditioning indicators 
(does not apply to CHAIN, FORCE, 
LOKUP, and READ) 


aach indicratar 


Cavill 11a lLUl 

each AND type 
Resulting indicators 
(does not apply to CHAIN, FORCE, LOKUP, 
and READ) 

with each resulting indicator 


OW W 


aN as : : ataaA 


Array control code (initialization and processing) is generated 
for all calculations except DSPLY, LOKUP, CHAIN, READ, 
and FORCE. 


Operation Bytes 
Array initialization 

F1 or F2 an array 6 

F1 or F2 a table 4 

Fl or F2 an array and tag il 
Array processing 

F1, F2, RF are arrays 30 

F1-RF, F2-RF arrays 22 

F2 and RF are arrays 16 


Suppose, for example, that a SUB operation code was speci- 
fied and has the following conditions: 


1. Fil=RF 

2. Di=D2=DR 

3. Fl, RF = full array 

4.  F2=table 

The length of object code generated would be as follows: 


Array initialization 


F1 array 6 bytes 

F2 table 4 bytes 

RF array 6 bytes 
SUB 6 bytes 
Array processing 

F1-RF array 22 bytes 


Thus, the total bytes of code generated for a SUB opera- 
tion code is 44 bytes. 


IN-LINE INQUIRY SUBROUTINE (SUBR95) 


You can use SUBR95 to perfrom inquiry-type functions 
without doing a roll-out/roll-in (see Control Card Specifi- 
cations, Inquiry for a discussion of roll-out/roll-in). You 
can check at any point in your calculations to determine if 
an inquiry request has been made. 


To use SUBR95, you must call it by specifying the linkage 
shown in Figure K-1 wherever you want to acknowledge an 
inquiry request. The indicator specified in columns 45-46 
can be any RPG II indicator. For a detailed discussion of 
this linkage, see Appendix H. 


When SUBR9S is called, it will check to see if the operator 
has made an inquiry request. If he has, the indicator speci- 
fied will be set on; if he has not, the indicator specified will 
be set off. 


Note: If your system does not support inquiry, the first 
call to SUBR95 will only activate the inquiry function. 

A second call to SUBR95 must be made in order to check 
for an inquiry request. 


Appendix L. IBM-Written Subroutines 





international Business Machines Corporation 


RPG CALCULATION SPECIFICATIONS 


Punching 


Instruction 
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Figure K-1. Linkage for SUBR95 
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& (ampersand), use in edit word 240 
$ (fixed or floating dollar sign) 240, 236 
* (asterisk, star) 
asterisk fill (asterisk protection) 240, 242 
{see also edit words) 
comment line 10 
printing on cards (Output sheet, col 40) 237 
packed or binary field restriction 239 
** (look-ahead fields) 114 
** (end record, alternate collating sequence table) 16 
*PLACE special word 228 
(see also fieldname, output) 
conditioning *PLACE fields 231 
end position in output record 237 
example 232 
overlapping *PLACE fields 231 
packed or binary field restriction 239 
*PRINT special word 231 
(see also fieldname, output) 
example 234 
packed or binary field restriction 239 
/* end of file delimiter 16 


ADD (add operation) 177 
add record (ADD Output sheet entry) 220 
adding records to files 59, 220 
direct files vs. sequential; indexed 213 
example 62 
File Description entry 59 
relation to file type 60 
valid add records 59 
additional input/output area 48 
ADDROUT files 
(see also record address files) 
File Description entries 
file organization (col 32) 48 
length of key field (cols 29-30) 45 
mode of processing (col 28) 33 
record address type (col 31) 45 
summary chart 65 
example 35 
adjusting results (see half adjust) 
alignment of printer forms 20 
allocation of file space on disk 291 
alphabetic characters (definition) 2 
alphameric 
characters (definition) 2 
fields (definition) 2 
moving alphameric fields (MOVE) 180 
alternate collating sequence 
(see also collating sequence) 
characters affected 19 
coding sheet 18 
control card entry 16 
compare operations 184 
input record format 17 
operations affected 16 
table 16 
alternating format (see related tables) 
ALTSEQ (see alternate collating sequence) 


Index 


ampersand (&), use in edit word 240 
AN and OR lines 
Calculation entries 159, 162 
control levelentry 159 
example 162 
AND and OR lines 
(see also record identification codes; output indicators) 
Input sheet entries 122 
example 127 
Output sheet entries 224 
stacker select entries 
input 128 
output 221 
AND relationship 
Calculation sheet (indicators) 162 
Input sheet (record identification codes) 120 
Output sheet (output indicators) 225 
arithmetic operations 
(see also operation codes; half adjust) 
length of fields 177 
list (see operation codes) 
using three fields 177 
arrays 
(see also tables) 
adding entries to a short array 94 
building (see loading) 
building via calculations (see execution time arrays) 
compilation time 76, 82 
creating input records 84 
decimal positions 80 
defining arrays (Extension sheet) 86 
definitions of terms 82 
differences between tables and arrays 82 
dynamic arrays (see execution time arrays) 


editing 94, 235 
end of array 89 
entry 86 


examples 98 
execution time 76, 84, 89 
Extension specifications 75 
summary chart 83 
file designation entry 29 
formatting output (see exception output) 
full array (definition) 84 
general discussion 84 


indexing 93 
length of entry 80 
loading 


compilation time 76, 88 

considerations 78 

examples 98 

execution time 76, 90 

from more than one record 92 

from one record 90 

placement in source deck 89 

pre-execution time 89 

suppressing calculations 92 

via input or calculations (see arrays, execution time) 
LOKUP (see LOKUP operation code) 
modifying the contents 94 

adding entries to a short array 94 


Index 397 


arrays (continued) 
name 
Extension sheet 77 
File Description sheet 29 
tulesfor 77 
number of entries per array 78 
number of arrays per device 76 
output 
formatting (see EXCPT operation) 
via Extension sheet 76, 94 
via Output sheet 94 
packed or binary format 80 
pre-execution time 76, 85 
recording array data (rules) 86 
referencing arrays in calculations 93 
related arrays (definition) 85 
sample specifications 88 
searching arrays (see LOKUP operation) 
sequence (Extension sheet entry) 82 
sequence of definition 88 
short arrays (definition) 85 
square root with arrays 148 
summary chart 83 
using arrays 
array name and index 93 
array name only 93 
valid operations 93 
XFOOT operation 180 
assembler language 
input/output routines (see special device support) 
subroutines (see EXIT and RLABL operations) 
asterisk (*) comment line 10 
asterisk fill (asterisk protection) 
edit codes 235 
edit words 240, 242 
examples (table) 242 


BEGSR (begin subroutine) operation code 199, 200 
binary field operations 186 
binary fields 
conversion of numeric fields 129 
Extension sheet 74 
Input sheet 129 
length of fields 130 
Output sheet 239 
sign 130 
binary relative record number 29, 32 
(see also ADDROUT files) 
BITOF (set bit off) operation code 187 
BITON (set bit on) operation code 187 
bit testing (TESTB) 189 
use of indicators 189 
bits (see binary field operations; packed or binary fields) 
blank after 236 
block length 
computed by RPG II for disk files (table) 290 
File Description entry 31 
relation to record length entry 31 
branching operations 191 
BSCA (see telecommunications specifications summary) 
BSI (British Standards Institute) sterling format 279 
bypass (haltrecovery option) 250 
bytes (see packed or binary fields) 
bytes for core index (table) 291 
bytes of generated code for calculations 391 
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C/Z/D (character/zone/digit) 226 
calculating storage needed for a file (table) 291 
calculations 
bytes size 391 
detail time 4, 276 
factors (Factor 1 and Factor 2) 167 
indicators in AND relationship 162 
operations 
(see also operation codes) 
conditioning 158 
controlling 158-167 
order of specification 169 
specification entry (cols 28-32) 169 
summary table 283 
specification sheet 158 
subroutines in 200 
total time 4, 276 
CANCEL key (see DSPLY operation) 
card arrangement in source deck 7 
card code (96 col card) 287 
cards, punching and printing on 237 
causing characters to be considered equal 17 
CHAIN (chain) operation code 213 
(see also direct file load; random processing) 
examples 214 
chained file (File Description entry) 29 
changing contents of tables and arrays 94 
character 
(see also record identification codes) 
alphabetic 2 
alphameric 2 
collating sequence (table) 288 


EBCDIC (extended binary-coded-decimal interchange code) 2 


grouping by zone and digit (table) 287 
hexadecimal equivalents 2, 288 

invalid (printer or printer/keyboard) 23 
numeric 2 

printable 17 

teplacement 240 

special 2 

structure 


(see also collating sequence; packed or binary fields) 


negative numbers 128 
unprintable character option 23 
checking sequence (see sequence checking) 
code 
96-column card code 128,177 
calculation code size 391 


EBCDIC (extended binary-coded-decimal interchange code) 2 


edit code 235 

machine code 128 

record identification 126 
codes, operation (see operation codes) 
coding sheet (see individual coding sheets) 
collating sequence 


(see also alternate collating sequence; character structure) 


definition 17 
table 288 
combined file 
file type entry (File Description col 15) 28 
output indicator restriction 223 
stacker selection restriction 221 
comment 
use of asterisk (*) 10 
on Calculations sheet 176 
on Extension sheet 82 
on table input record 78 


common entries on specification sheets 9 
COMP (compare) operation code 184 
compare and testing operations 184 
compilation 
error messages (diagnostic messages) 293 
halts 249 
tun 2 
of source program 1, 2 
compilation time tables and arrays 76, 84, 88 
compiler program 1 
conditioning files (File Description entry) 6 
conditions tested by resulting indicators (Calculations) 172 
consecutive processing of file 32 
CONSOLE device entry (File Description sheet) 55 
(see also printer/keyboard; DSPLY operation code) 
multiple console file considerations 55 
constant 
(see also edit word; literal) 
definition 239 
examples (table) 242 
Output sheet 239 
rules for forming 239 
sterling output 281 
constant or edit word (Output sheet entry) 239 
continuation lines 56 
entry 57 
option 57 
tape record 57 
continue (halt recovery option) 250 
control break 
(see also control fields; control level) 
definition 4 
first cycle difference 136 
general description 136 
unwanted 134, 138 
Control Card Specifications 13 
sterling entries 279 
control fields 
(see also control break; control level) 
assigning oninput 134 
examples 137 
general description 135 
OR relationship of record types 151 
tules for using 135 
split control fields 136 
control group (see control fields; control level) 
controi ievei 
(see also control fields; control break; field record relation) 
Calculation sheet entry 158 
example 159 
Input sheet entry 135 
control level indicator 
Calculation sheet 158 
examples 137 
exception 158 
general information 158 
Input sheet 135 
normal uses 135 
Output sheet 224 
relation between Calculation sheet entries 158 
with subroutines 202 
controlled cancel (halt recovery option) 249 
controlling calculations and output 
using indicators in calculations 158-167 
using field indicators (input) 155 


conversion of fields 
during move operations 179 
numeric fields 129 
core index 
allocation of storage (formula) 59 
example 57 
table for allocating storage 291 
core saving techniques 383 
general 384 
reducing the overlay size 385 
core size to execute 14 
CR (negative balance symbol, see edit words) 
creating a direct file (see direct file load) 
creating overlays 14 
crossfoot operation (KFOOT) 179 
currency, sterling 156 
cycle 
detailed object program logic 274 
general object program logic 4 
first and last cycle differences 4 
cylinder index in core (see core index) 


data formats (see packed or binary field; character structure) 
date field (UDATE, UDAY, UMONTH, UYEAR) 231 
DEBUG (debug) operation code 
Control Card entry 15 
format of debug records 217 
general information and specifications 217 
decimal places (see decimal positions) 
decimal positions 
Calculation sheet entry 170 
relation to field length entry (table) 171 
sample result field contents (table) 171 
Extension sheet entry 82 
Input sheet entry 132 
sterling entry 280 
with move remainder operation (MVR) 148 
with square root operation (SQRT) 148 
decimal data format 
(see also packed and binary fields) 
packed 130 
unpacked 129 
defining a field in calculations (result field) 169 
defining an alternate collating sequence 16 
definitions of terms 2 
demand file 
(see also READ operation code) 
File Description sheet entry 29 
external indicators with 211 
maximum number 29 
detail calculations time 4 
detailed object program logic 276 
detail output record 
with control level as output indicator 225 
Output sheet entry 220 
detail output time 276 
detail time 276 
device 
(see also individual devices) 
assignment (table) 55 
File Description sheet entry 55 
special device support (SPECIAL) 361 
diagnostic messages, RPG II compiler 293 


Index 399 


digit 
(see also character structure; record identification codes) 
character grouping by zone and digit (table) 287 
punch (see character structure) 
direct file 
adding records (differences from sequential and indexed) 214 
creating (loading) a direct file 213 
File Description sheet entries 48 
processing methods 32, 68 
summary chart 68 
synonymrecords 213 
disk file 
(see also direct file; indexed file, sequential file) 
block length entry 31 
device entry (File Description sheet) 55 
organization (see file organization) 
processing (see processing methods) 
display file 28 
(see also printer/keyboard) 
display (DSPLY) operation 
(see also display file; printer/keyboard) 
entering data during program execution 209 
example 210, 214 
DIV (divide) operation code 177 
divide by zero (halt recovery) 177 
(see also move remainder, MVR) 
dollar sign 
(see also edit code; edit word) 
examples in edit words 242 
fixed 240, 242 
floating 235, 240, 242 
domestic format 15, 231 
DPF (see dual program feature) 
DSPLY (display) operation code 209 
(see also display file) 
dual carriage feature (printer) 56 
dual input/output areas 
File Description sheet entry 48 
stacker selection with 129 
dual program feature (DPF) 
core size to execute 14 
object output 14 
restrictions 
inquiry 20 
object output 14 
special device (SPECIAL) restriction 361 
duplicate records (see synonym records) 
dynamic array (see execution time array) 


EBCDIC (extended binary-coded-decimal interchange code) 2 
edit code 
with array 235 
with edit word 235 
effect of inverted print 16 
effect on end position 236 
example 235 
leading zero suppression 243 
Output sheet entry 235 
summary tables 235, 236, 289 
with sterling fields 280 
zero balances 235 
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edit word 
editing considerations 240 
with edit code 235 
examples (table) 243 
Output sheet entry 239 
replaceable characters 240 
tules for forming 240 
with sterling fields 282 
end of file 
(see also multifile processing) 
delimiter (alternate collating sequence) 19 
exceptional situation 30 
File Description sheet entry 30 
with force (FORCE) operation 207 
records processed 30 
END key (see DSPLY operation code) 
end position in output record 
effect of edit code on 236 
Output sheet entry 237 
sterling 281 
ENDSR (end subroutine) operation code 199, 201 
entry (table or array) 
(see also tables; arrays) 
length of entry (Extension sheet) 80 
number of entries per record (Extension sheet) 76 
number of entries per table or array (Extension sheet) 78 
error condition, controlling with output indicators 225 
error messages 
diagnostic messages (table) 293 
halt messages 
error, sequence 
recovery from file sequence error 31 
recovery from record type sequence error 110 
exception records 
(see also EXCPT operation code) 
Output sheet entry (col 15) 220 
EXCPT (exception) operation code 205 
overflow printing with EXCPT 53 
execution 
core size to execute (Control Card entry) 14 
halts 249 
object program 1, 2,14 
execution time array 
definition 84 
Extension sheet 76 
loading 90 
EXIT and RLABL operations 363 
EXSR (execute subroutine) operation code 199, 201 
extension code (File Description sheet, col 39) 54 
Extension specifications 
(see also record address files; tables and arrays) 
summary chart 83 
extents, number of 63 
external character (file translation) 21 
external indicators (U1-U8) 
(see also field record relation) 
assigning on File Description sheet 64 
used with demand files 211 
as output indicators 224 


Factor 1 167 

Factor 2. 167 

fetching the overflow routine 
general information 51 
Output sheet entry 221 


field 
alphameric 2 
binary 129, 82, 186, 239 
control 135 
key 45,53 
length 169 
look-ahead (see look-ahead field) 
matching 142 
numeric 2,155 
packed 129, 82, 239 
result field 169 
sterling 279 
zeroing 177, 236 
field indicators 
assigning on Input sheet 155 
controlling calculations and output 156 
field length 
Calculations sheet entry 169 
key field 45 
relation to decimal positions (table) 171 
field location 
Input sheet entry 131 
sterling entry 280 
field name 
Input sheet entry 132 
length 2 
OR relationship 132 
Output sheet entry 228 
special word entries 228 
sterling entry 280 
valid RPG II fieldname (definition) 2 
field record relation 150 
file 
(see also end of file; File Description specifications; multifile 
processing) 
ADDROUT 29, 35 
allocation of space 291 
chained 29 
combined 28 
demand 29 
direct (see direct file) 
display 28 
indexed (see indexed file) 
input 28 
output 28 
primary 29 
record address 29 
secondary 29 
sequential (see sequential file) 
table or array 29 
update 28 
file addition 
File Description sheet entry 59 
difference between direct, sequential, and indexed 213 
relation to file type entry 60 
file condition 
(see also external indicators) 
File Description sheet entry 64 
file designation 28 
File Description specifications 27 
summary charts 65 
file format 31 


filename 
Filename Description sheet entry 28 
from filename (Extension sheet) 76 
Input sheet entry 110 
length 2 
Line Counter sheet entry 107 
Output sheet entry 220 
to filename (Extension sheet) 76 
valid RPG II filename (definition) 2 
file organization (File Description entry) 46 
file processing (see processing methods) 
file translation 
Control Card entry (col 43) 21 
example 22 
format of table records 21 
placement of table in source deck 21 
specifications 21 
file type (File Description entry) 28 
first page (1P) indicator 
assignment on Output sheet 225 
example 227 
restriction with output fields 225 
fixed dollar sign _ 240, 242 
example (table) 244 
fixed length format 31 
floating dollar sign 240, 242 
examples (table) 242, 246 
with edit code 235 
flowchart, RPG II program logic 
detailed 274 
general 4 
FORCE (force) operation code 207 
comparison with READ operation code 209 
example 207 
form length (see Line Counter specifications) 
default value 107 
form type 10 
formatting edit words 239 
forms position, 1P 20 
from filename (Extension sheet entry) 76 
full table or array 
definition 84 
entry on Extension sheet (number of entries per table or array) 
80 
function of RPGII 1 


general core saving techniques 384 
general object program logic 4 
generated calculation code 391 
generation of object program (see compilation) 
glossary (definition of terms) 2 
GOTO (go to) operation code 191 
(see also TAG) 
use with subroutines in calculations) 203 
group operations (see total operations) 
grouping characters by zone and digit (table) 287 


half adjust (Calculations sheet entry) 170 
halt indicators (H1-H9) 
assigning on Input sheet 155, 113 
Calculation sheet uses 
conditioning indicators 162 
resulting indicators 174 
example 176 


Index 401 


halt indicators (H1-H9) (continued) 
fieid indicator (Input sheet) 155 
field record relation 150 
general description of use 175 
Output sheet use 222 

halt recovery procedures 249 

header card (Control Card) 13 

heading (H) output records 220 


hexadecimal equivalents of characters (table) 288 


I-type program (see inquiry support) 
IBM format (sterling fields) 

Control Card entries 15, 279 
IBM-written subroutines 390 
identification 

of programs 10 

of record types 122,45 
immediate cancel (halt recovery option) 249 
in-line inquiry subroutine 390 
index, array 93 

core 

(see also indexed file) 

File Description entry 57 

space requirements 275, 58 
formula for calculating 59 

zero index error 199 
indexed file 

addition of records 59, 220 

ADDROUT processing 33 

File Description summary charts 66 

general information 46 

key 46 

loading 46 

random processing 33 

sequential by key processing 33 

sequential by limits processing 33 

unordered loading 59 
indicators 

(see also DEBUG operation code) 

Calculation sheet 

AND relationship of indicators 167 
control level (cols 7-8) 158 
indicators (cols 9-17) 162 
resulting indicators 172 
conditioning 
Calculation sheet 162 
Output sheet 222 
control level (L1-L9, LO) 
assigning on Input sheet 134 
Calculation sheet entries 158, 162, 172 
field record relation 150 
Input sheet entries 135,113 
LO 158 
Output sheet entries 222 
record identifying indicator 113 
summary table 284, 286 
external (U1-U8) 
assigning on File Description sheet 64 
Calculation entry 162 
with demand file 211 
field record relation 150 
Output entries 222, 224 


setting hv Oneration Control Lanonage 64 


OHO = 


summary table 284, 286 
where used 64 
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indicators (continued) 


Field (01-99; Hi-H9) 
assigning on Input sheet 155 
Calculation sheet uses 162 
general description (01-99; H1-H9) 173,174 
Output sheet uses 222 
summary 284, 286 
field record relation 150 
file conditioning (U1-U8) 64 
(see also external indicators) 
File Description sheet (file conditioning) 64 
first page (1P) 
assigning on Output sheet 225 
example 227 
restriction with output fields 225 
halt (H1-H9) 
assigning on Input sheet 113,155 
Calculation sheet use 168, 172 
controlling error conditions 225 
field indicator 155 
field record relation 150 
general description 174 
Output sheet use 222 
summary table 284, 286 
Input sheet 
control level 296 
field indicators 155 
field record relation 150 
record identifying indicator 113 
last record (LR) 
Calculation sheet use 162,172 
Input sheet use 113 
summary tables 284, 286 
level zero (LO) 
assigning on Calculation sheet 158 
Output sheet use 222 
setting indicators restriction 190 
summary tables 284, 286 
matching record 
(see also multifile processing) 
assigning matching fields 142 
Calculation sheet uses 162 
examples 143-149 
field record relation 142 
generalinformation 139 
Output sheet uses 214 


summary tables 284, 286 
output 222 
AND and OR lines 224 
overflow indicators 225 
use to control error conditions 225 
overflow 
assigning on File Description sheet 49 
Calculation sheet entries 162,172 
examples 51 
fetching the overflow routine 52 
general information 49 
Line Counter specifications 108 
Output sheet entry 225 
relation to program cycle 106, 54 
restriction with exception lines 225 
summary tables 284, 286 
record identifying 
as field record relation 1450, 152 
assigning on Input sheet 113 
examples 127 
summary tables 284, 286 


indicators (continued) 
referencing in EXIT and RLABL operations 363 
resulting 
Calculation sheet entries 172 
examples 175 
summary tables 284, 286 
use with CHAIN operation code 213 
use with LOKUP operation code 193 
use with READ operation code 209 
setting (SETON; SETOF) 190 
summary tables 284, 286 
with test bit (TESTB) operation 189 
valid uses of indicators (table) 286 
input/output (/O) area 
additional area (File Description col 32) 46, 48 
dual areas 48 
multiple areas 48 
size of area computed by RPGII (table) 290 
size of area related to record length 32 
input/output, programmed control of 203 
input file 28 
Input specifications 109 
sterling input. 280 
inquiry 
dual program feature restriction 20 
RPG II subroutine 390 
inserting new records (see adding records to a file) 
internal character (file translation) 21 
interruption of programs 20 
inverted print 16 


job control language (see Operation Control Language) 


K (1,024 bytes of main storage) 14 
key 
(see also indexed files) 
limits (see also record address files) 33 
random processing by 33 
sequential processing by (indexed file) 33 
keyboard (see printer/keyboard) 
key field 
definition 46 
length (File Description cols 29-30) 45 
starting location (File Description cols 35-38) 53 


labels 57 
label exit 57 
last record indicator 
Calculation sheet use 162, 172 
Output sheet use 222 
record identifying indicator (Input sheet) 113 
summary tables 284, 286 
leading zero suppression 22 
effect of inverted print specification 15 


length of 
array name 93 
block 31 


relation to record length 31 
entry (Extension sheet entry) 80 
field 
arithmetic operations 177 
compare operations 185 
relation to decimal positions (table) 171 
square root, relation to decimal positions (table) 179 


length of (continued) 
fieldname 2 
filename 2 
form (number of lines per page) 108 
key field (File Description cols 29-30) 45 
record (File Description cols 24-27) 32 
record address field (File Description cols 29-30) 45 
result field (Calculations cols 49-51) 169 
level, control (see control level) 
level zero indicator 158 
library, object 10 
limits processing 33 
(see also indexed file; record address file) 
example 36 
Line Counter specifications 107 
line number 
coding lines 9 
number of lines per page 108 
overflow line 108 
linkage to assembler language subroutine 361, 363 
listing options (Control Card entry) 14 
literal (Calculations sheet) 168 
(see also constant) 
loading 
arrays 88 
considerations 78 
direct files 207 
indexed files 46 
unordered load 59 
location of field (Input sheet entry) 131 
logic of RPG II object program 
detailed 269 
general 4 
LOKUP (lookup) operation code 193 
examples 196 
referencing the table item found 196 
resulting indicators with 193 
starting the search at a particular array item 199 
with an array 196-199 
with one table 77 
with two tables 195 
look-ahead fields 
examples 114-121 
Input sheet entries 114 
specifications 120 
spread cards 122 
with primary and secondary files 120 
lookup operation (see LOKUP) 
LR (last record) indicator 
Calculation sheet use 162-172 
Output sheet use 222, 224 
record identifying indicator (Input sheet) 113 
summary tables 284, 286 
LO (level zero indicator) 
assigning on Calculation sheet 158 
Output sheet use 222 
summary tables 284, 286 
L1-L9 (control level) indicators 
assigning on Input sheet 134 
as field record relation 150 
Calculation sheet use 158, 162, 172 
examples 159, 162, 164 
Output sheet use 222 
record identifying indicator 113 
resulting indicators (Calculations sheet) 172 
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machine code 2,128 
machine language program 1 
machine requirements 6 
magnetic tape files 

block length for 32 

continuation records 57 

file description specification 73 

tape rewind (column 70) 64 
main storage (core) 

allocation for core index (table) 291 

core size to execute (Control Card entry) 14 
matching fields 

(see also multifile processing) 

assigning (rules) 148 

example 149 

Input sheet entry 142 

used for sequence checking i47 
used for multifile processing 147 

matching level indentifier (M1-M9) 142 
matching record indicator (MR) 

as filed record relation 150 

assigning matching fields 147 

Calculations sheet entry 162 

Output sheet entry 222 

when turned on 147 
method (mode) of processing (File Description entry) 32, 45 
messages, RPG II diagnostic (error) 293 
MFCU (multifunction card unit) 

block and record length entries 31 

device names (MFCU1; MFCU2) 55 

MFCU tables and arrays 76 

printing on cards 237 
MHHZO (move high to high zone) operation code 184 
MHLZO (move high to low zone) operation code 184 
MLHZO (move low to high zone) operation code 184 
MLLZO (move low to low zone) operation code 184 
mode of processing 32 
modifying contents of tables and arrays 94 
MOVE (move) operation code 180 

summary table 182 
MOVEL (move left) operation code 181 

summary table 183 
move operations 180 
move remainder (MVR) operation 148 
move zone operations 184 
MULT (multiply) operation code 147 


witifsle nrac + 
mute processing 


(see also end of file; matching record indicator) 
examples 150 
with FORCE operation 207 
general discussion 147 
match fields 147 
assigning matching fields (rules) 148 
Input sheet entry 142 
no match fields 147 
normal selection, three files 144 
normal selection, two files 143 
selection of records (input) 147 
with alternate collating sequence 148 
with field record relation 150 
multiple input/output areas 48 
File Description sheet entry 46 
multivolume files (see number of extents) 
MYR (move remainder) operation code 
(see also DIV operation code) 
example 148 


1AQ 
aU 
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N (not) (see record identification codes) 
name 
array (Extension sheet entry) 77 
field 
Calculation sheet entry 169 
Input sheet entry 132 
Output sheet entry 228 
program 10 
result field 169 
valid RPG II names (definition) 2 
table (Extension sheet entry) 77 
name of label exit 57 
negative balance (CR) (see edit word) 
negative numbers (character structure) 128 
(see also packed or binary field) 
negative square root halt (recovery options) 250 
normal collating sequence 16, 288 
number (Input sheet col 17) 112 
number, negative 128 
(see also packed or binary field) 
number of entries per record (Extension sheet) 78 
number of entries per table or array (Extension sheet) 80 
number of extents (File Description sheet) 63 
numbering lines on coding sheets (example) 9 
numbering report pages (PAGE special word) 
Input sheet entry 133 
Output sheet entry 228 
restarting numbering sequence 228 
numeric characters (definition) 2 
numeric literals 
Calculation sheet uses 168 
inverted print specifications 16 
numeric field 
conversion 129,179 
moving 179 
OR relationship 183 
sign of 228 
testing 156 


OA-OG, OV (overflow indicators) 
(see also overflow) 
assigning on File Description sheet 49 
Calculation sheet use 162, 172 
Output sheet use 222, 225 
when turned on 49, 108 
obiect library 10,14 
object program 1-2 
execution 1, 2,14 
generation (see compilation) 
identification 10, 14 


logic 
detailed 276 
general 4 
output 14 


terminalerrors 14 
OCL (operation control language) for RPGII 249 
operation 

arithmetic 177 

Calculation sheet entry 169 

conditioning 158 

detail 4 

order of specification 158, 169 

summary table 283 


operation codes 147 
(see also operation; individual operation codes) 
arithmetic 147 
(see also half adjust) 
ADD (add) 147 
DIV (divide) 147 
MULT (multiply) 147 
MVR (move remainder) 148 
SQRT (square root) 148 
SUB (subtract) 147 
XFOOT (cross foot) 149 
Z-ADD (zero and add) 147 
Z-SUB (zero and subtract) 147 
binary field operation 186 
BITOF (set bit off) 187 
BITON (set biton) 187 
TESTB (test bit) 188 
branching operations 
GOTO (go to) 191 
TAG (tag) 191 
compare and testing operations 
COMP (compare) 184 
TESTZ (test zone) 186 
debug operation 
DEBUG (debug) 217 
lookup operation 
LOKUP (lookup) 193 
move operations 
MOVE (move) 180 
MOVEL (move left) 181 
move zone operations 
MHHZO (move high to high zone) 184 
MHLZO (move high tolow zone) 184 
MLHZO (move low to high zone) 184 
MLLZO (move low to low zone) 184 
programmed control of input and output 204 
CHAIN (chain) 213 
DSPLY (display) 209 
EXCPT (exception) 205 
FORCE (force) 207 
READ (read) 209 
setting indicators 190 
SETOF (set off) 191 
SETON (set on) 191 
subroutine operations 199 
BEGSR (begin subroutine) 199 
ENDSR (end subroutine) i199 
EXSR (execute subroutine) 199 
summary table 283 
operator options for halt recovery (table) 250 
option (Input sheet col 18) 113 
options, listing (Control Card col 11) 14 
OR relationship 
Calculation sheet 159, 162 
example 162 
Input sheet 
fields in OR relationship 132 
record identification codes 127 
Output sheet 224 
stacker selection 128, 221 
output 
detail 4, 220, 276 
exception 205, 220 
heading 220 
table and array 94 
total 4, 220, 276 


output fields 
fieldname entry 228 
repeating (*PLACE) 228 
sterling 281 
output file 
file type (File Description entry) 28 
table or array 29, 76, 94 
Output-Format Specifications 219 
sterling 281 
output indicators (Output sheet entry) 222 
AND or OR lines 224 
overflow 
area 49 
automatic 49 
fetched 51, 216 
general considerations 53 
line 49,108 
default value 107 
printing (with EXCPT operation) 53 
spacing and skipping 222 
steps done after overflow 108 
use 49 
overflow indicator 
(see also overflow) 
assigning on File Description sheet 49 
Calculation sheet use 162, 172 
Output sheet use 222, 225 
summary table 284, 286 
when turned on 108 
with control level indicator 225 
overlay 
changing the size of an overlay 384 
compiler process 383 
core saving technique 383 
definition 383 
how to find an overlay 384 
main storage area 384 
overlay contents 384 


packed or binary fields 
Extension sheet entry 82 
Input sheet entry 129 
Output sheet entry 239 
restrictions with * in col 40 (Output), *PLACE, and *PRINT 
239 
packed decimal format 130 
(see also packed or binary fields or packed keys) 
packed keys 45 
(see also packed or binary fields or packed decimal format) 
PAGE, PAGE1, PAGE2 228, 232 
example 230 
page numbering 130, 228 
pence field (sterling) 15, 279 
positioning printer forms 20 
pre-execution time tables and arrays 
definition 84 
loading 89 
primary file 
(see also matching fields) 
File Description entry (file designation) 29 
printable characters 17 
printer 
block length 31 
device names 55 
dual carriage feature 57 
file description chart 70 
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printer/keyboard (CONSOLE) 
(see also DSPLY operation code) 
block length 31 
device name 55 
File Description chart 71 
printing on cards 237 
processing methods 
consecutive 32 
direct file load 213 
multifile (see multifile processing) 
random by ADDROUT file 33 
tandom by key 207, 33, 213 
examples 41, 43 
random by relative record number 33, 213 
example 39 
sequential by key 33 
sequential within limits 33 
example 37 


program 
compilation 1, 2 
cycle 4, 274 


identification 10 
indicators (summary tables) 284, 286 
interruption (see inquiry) 
name 10 
object 1, 2,14 
sample 253 
source 1 
program logic 
detailed 273 
general 4 
programmed controi of input and output 204 
programming tips 383 
punched card code 128 
punching on cards 237 


RA file (see record address file) 
random processing 
by ADDROUT file 33 
by CHAIN operation code 213 
by key 33 
examples 41, 43 
by relative record number 33 
example 39 
READ (read) operation code 209 
(see also demand files) 
record addition 59, 220 
record address file 
(see also ADDROUT file) 
definition 29 
extension code (File Description col 39) 54 
Extension sheet entries 76, 83 
format of records 33 
located on disk 69 
processing sequential within limits 33 
record address type (File Description col 31) 45 
record address type 45 
record identification codes 122 
(see also character structure) 
record identifying indicator 
AND and OR lines 114 
assigning on Input sheet 113 
control level indicator used as_ 114 
used for field record relations 151 
use with overflow indicator 225 
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record key 46 
record length 32 
record relation (see field record relation) 
record selection (Input) 147 
record type 
identification 122 
sequence checking 110 
reducing the overlay size 384 
relative record number 
(see also CHAIN operation code) 
binary 29, 33 
example 38 
random processing by 33 
related tables and arrays 78, 84 
remainder (see MVR operation code) 
repeating 
operations (see GOTO and TAG) 
output fields (*PLACE) 228 
output lines (exception output) 205 
replaceable characters 240 
REQUEST key (see inquiry) 
result field 169 
resulting indicators 
Calculation sheet entry 172 
with CHAIN 213 
with LOKUP 193 
with READ 209 
RLABL operation 363 
roll-in and roll-out routines (inquiry) 20 
root segment 383 
rounding numbers in result field (half adjust) 170 
RPG I 
definition and general description 1 
diagnostic messages 293 
halts and recovery options 249 
inquiry support 20 
object program logic 273 
operation control language 249 
running a program 249 
sample programs 253 
source deck, card arrangement 7 
specification sheets 6 
valid names 2 


sample programs 253 
search word (see LOKUP) 
secondary file 
(see also matching files) 
file designation entry 29 
selection of records oninput 147 
(see also multifile processing) 
selecting a stacker 
Input sheet entry 128 
Output sheet entry 221 
sequence 
collating (see collating sequence) 
error 31,110 
Extension sheet entry 82 
File Description sheet entry 30 
Input sheetentry 110 
record type 110 
sequence checking 
Fiie Description sheet eniry 3i 
input records 110 
using matching fields (M1-M9) 147 


sequenced group 110 
sequential file 48 
addition to 59 
File Description chart 67 
processing methods 32 
sequential processing by key 33 
sequential processing within limits 33 
SETOF (set off) operation code 190-191 
SETON (set on) operation code 190-191 
setting indicators 190 
shared I/O 
additional I/O area 48 
control card specifications 25 
shilling field 15,279 
short table or array 80, 84 
sign 
binary format 130 
numeric field 220 
packed decimal format 130 
position, sterling field 
Input sheet entry 156, 280 
Output sheet entry 248, 282 
unpacked decimal format 130 
skip (Output sheet entry) 221 
skipping operations (see branching operations) 
source deck, card arrangement 7 
source library 248 
source program 1 
compilation 1,2 
space (Output sheet entry) 221 
SPECIAL (device entry) 361 
general description 56 
special characters (definition) 2 
special device support 361 
dual program feature restriction 361 
special open/close 383 
special words 
general description 228 
Input sheet use 133 
Output sheet use 228 
specifications 
Calculation 158 
Control Card 13 
Extension 75 
summary chart 83 
File Description 27 
summary charts 65 
general description and ordering of 6,9 
Input 109 
Line Counter 107 
Output-Format 219 
telecommunications 372 
split control fields 136 
used with field record relation 151,152 
SQRT (square root) operation code 178 
negative square root halt 249 
SR (see subroutines) 
stacker select 
Input sheet entry 128 
Output sheet entry 221 
standard form length (printer) 108 


sterling fields 279 
Control Card entries 15, 279 
editing 282 
Input sheet entries 280 
Output sheet entries 281 
sign position 
Input sheet 156, 280 
Output sheet 248, 282 
storage allocation . 
(see also file allocation) 
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structure of characters 128 
(see also collating sequence) 
SUB (subtract) operation code 177 
subroutines, assembler language 363 
subroutines in calculations 200 
control level entry (SR) 159 
GOTO and TAG with subroutines 203 
operation codes 199 
use of one subroutine in different programs 202 
SUBR95 (in-line inquiry subroutine) 390 
summary of RPGII specifications 364 
summary tables 
edit codes 235, 236 
indicators 284, 286 
operation codes 283 
supervisor (considerations in core size to execute) 14 
suppression of leading zero 22 
synonym record 213 


tables 

(see also arrays; LOKUP operation) 

adding entries to a short table 94 

building (see loading) 

compilation time 76, 84 

creating input records 86 

decimal positions 82 

defining tables (Extension sheet) 88 

definitions of terms 84 

differences between tables and arrays 84 

editing 95, 235 

end of table 89 

entry 86 

example 95 

Extension specifications 75 
summary chart 83 

file designation entry 29 

full table (definition) 84 

general discussion 84 

input record 78, 86 

length of entry 80 

loading 
compilation time 76, 88 
considerations 78 
placement in source deck 93 
pre-execution time 76, 89 


LOKUP (see LOKUP operation code) 
modifying the contents 94 
adding entries to a short table 94 
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tables (continued) 


naming 
Extension sheet 77 
File Description sheet 29 
tulesfor 77 
number of entries per table 78 
number of tables per device 76 
output 
formatting (see EXCPT operation) 
via Extension sheet 76, 94 
via Output sheet 94 
packed or binary format 80 
pre-execution time 76, 84 
recording table data (rules) 86 
referencing tables in calculations (see LOKUP operation) 
related tables 
alternating format 72 
definition 84 
example 77, 80 
length of entry specification 81 
searching tables (see LOKUP operation) 
sequence (Extension sheet entry) 82 
sequence of definition 88 
short tables (definition) 84 
summary chart 83 
TAG (tag) operation code 191 
use with subroutine 184 
tape (see magnetic tape) 
tape continuation record 57 
tape file description specification 73 
tape records, block length 32 
tape rewind (column 70) 64 
telecommunications specifications summary 372 
TESTB (test bit) operation code 187 
use of resulting indicators 189 
testing fields (see field indicators) 
testing result of calculations (see resulting indicators) 
TESTZ (text zone) operation code 186 
to filename (Extension sheet) 76 
total operations (calculations; output) 4, 276 
total output records 220, 224 
control level indicator with 225 
total printing (control level onInput) 235 
totaltime 4, 276 
Translation Table and Alternate Collating Sequence Coding 
Sheet 18 
Type H/D/T/E 220 


UDATE special word 231 
inverted print format 16 
UDAY special word 231 
UMONTH special word 231 
United Kingdom format 15, 231 
unordered load (indexed file) 59,62 
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unpacked decimal format 129 
unprintable character option 23 
update file (file type entry) 28 

output indicator restriction 223 
using RPGII 2 
UYEAR 231 
U1-U8 indicators (see external indicators) 


valid indicators (summary table) 286 
valid RPG II name (definition) 2 
volumes of a file 60 


World Trade format 15, 231 


XFOOT (crossfoot) operation code 179 


Z (zone) (see record identification codes) 
Z-ADD (zero and add) operation code 177 
Z-SUB (zero and subtract) operation code 177 
zero balance 
effect of edit code 235 
effect of inverted print 16 
zero suppression 
effect of inverted print 16 
examples 243 
relation to edit word or edit code 23 
stop character 240 
zeroing fields 
blank after 236 
subtract operation 177 
zone 
(see also character structure) 
character grouping by equal zone 287 
move zone operations 184 
test zone operation 186 
zone punch 128 


01-99 indicators 
Calculation sheet uses 162, 172 
effect of SETON and SETOF 173 
general description of use 173 
Input sheet uses 
field indicators 155 
field record relation 150 
record identifying indicator 113 
Output sheet use 222 
1P (first page) indicator 
as output indicator 222, 225 
example 227 
restriction with output fields 225 
1P forms position 20 
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